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1.0 GENERAL INFORMATION 
1.1. PROGRAM ABSTRACT 


Prev 
”" 
n~ 


D S 
HE FUNCTIONAL CAPABILITY OF 
THE PRINTER. THE INDIVIDUAL TESTS ARE IDENTIFIED AS 


FOLLOWS: 
TEST 1 INTERFACE LOGIC 
TEST ¢ DATA TRANSFER PATHS 
TEST PRINTABLE CHARACTERS 
TEST 4 ph LL CHARACTERS 
TEST 5 PRINT CON 
TEST 6 MULTIPLE LINE ADVANCE 
TEST 7 OVERSTRIKE TEST 
TEST 8 INTERLOCK TEST 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT. 
TH]S PROGRAM CAN BE USED WITH XXDP* OPERATING SYSTEM. 


FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER 
TO THE XXDP* USER'S MANUAL. THERE IS A BRIEF DESCRIPTION OF 
THE RUNTIME SERVICES IN SECTICN 2 OF THIS DOCUMENT. 

1.2 SYSTEM REQUIREMENTS 


1.2 SYSTEM REQUIREMENTS 


A TEST STATION IS REQUIRED CONSISTING OF A PDP-11 CPU WITH A 
MINIMUM OF 16K WORDS OF MEMORY AND A CONSOLE TERMINAL WITH 

INTERFACE AT DEVICE ADDRESS 777560. THE SYSTEM ALSO REQUIRES 
AN XXDP SUPPORTED DEVICE SUCH AS AN RKOS/RK11 DISK DRIVE 10 


S 
AFFORD A MEANS TO LOAD THE DIAGNOSTIC PROGRAM. 


1.3 RELATED DOCUMENTS AND STANDARDS 
1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 


THIS DIAGNOSTIC IS COMPATIBLE WITH ALL MEMBERS OF THE PDP-11 
COMPUTER FAMILY. THE DIAGNOSTIC IS INTERFACED TO THE PDP-11 
DIAGNOSTIC SUPERVISOR THROUGH WHICH IT INTERFACES TO THE 
ENVIRONMENT. 


THE DIAGNOSTIC CAN BE U Y OF OPERATING SYSTEMS 
TO FULFILL DIFFERENT RE BE 


IN A _VARIET 
F REMENTS. THE DIAGNOSTIC CAN 
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LOADED USING XXDP IN A FIELD SERVICE OPERATION, taints USING 
THE APT/ACT/SLIDE DIAGNOSTIC MONITORS IN A MANUFACTURING 
ENVIRONMENT, OR MANUALLY LOADED USING PAPER TAPE. 
THE es he PDP=11 CPU, MEMORY, AND PERIPHERALS SHOULD BE 
RUN TO VALIDATE PROPER OPERATION OF THE SYSTEM BEFORE RUNNING 
THIS DIAGNOSTIC. 

1.5 ASSUMPTIONS 
THE PRINTERS UNDER TEST SHOULD HAVE POWER APPLIED AND BE 
PLACED ON LINE IN READINESS FOR TESTING. EACH LINE PRINTER 
MUST HAVE ITS OWN M7258 CONTROLLER SET UP AT A DIFFERENT DEVICE 
ADDRESS. THE DIAGNOSTIC PROVIDES A DEFAULT DEVICE ADDRESS OF 
777514 WHICH CAN BE USED WHEN A SINGLE LINE PRINTER IS BEING 
TESTED OR FOR THE FIRST UNIT WHEN MULTIPLE LINE PRINTERS ARE 
UNDER TEST. IT WILL BE NECESSARY FOR THE OPERATOR TO RUN THE 
LINE PRINTER OFF LINE IN THE SELF TEST MODE BEFORE RUNNING THE 
DIAGNOSTIC. EACH PRINTER SHOULD BE IN THE 8 BIT MODE 


2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP* USER'S MANUAL (CHQUS). 


2.1 COMMANDS 


THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 
(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP* USER*S MANUAL HAS MORE DETAILS. 
COMMAND EFFECT 
START START THE DIAGNOSTIC Aa AN INITIAL STATE 
RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 
CONT INUE CONTINUE AT TEST THAT wh. INTERRUPTED (AFTER *C) 
PROCEED poet ae FROM AN ERROR HALT 
EXIT RETUR ‘i, XXDP+ MONITOR | ee OPERATION ONLY!) 
ADD ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 
CONSIDERED Ie a ACTIVE AT START TIME 
DROP DEACTIVATE A UNIT 
PRINT eo STATISTICAL gt rete ar IMPLEMENTED 
Y THE DIAGNOSTIC = SECTION 
DISPLAY TYPE A LIST OF ALL DEVICE INFORMA TION 
FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 
ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 
A COMMAND CAN BE RECOGNIZED BY THE FIRST as CHARACTERS. SO 
YOU MAY, FOR EXAMPLE, TYPE ‘’STA’’ INSTEAD OF ‘’START"’. 


2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION, 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
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SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH, Si 
IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY ‘DDDDD"’. 
SWITCH EFFECT 
/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TES! 
NUMBERS, FOR EXAMPLE = /TESTS:1:5:7-10, 
THIS LIST WILL CAUSE TESTS 1,5,7,8,9,10 TO 
BE RUN. ALL OTHER TESTS WILL NOT BE RUN. 
/PASS:DDDDD EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000) 
/FLAGS:FLGS SET SPECIFIED FLAGS. FLAGS ARE DESCRIBED 
IN SECTION 2.3. 
/EOP:DDDDD REPORT END OF PASS MESSAGE AFTER EVERY 
DDDDD PASSES ONLY. (DDDDD = 1 TO 64000) 
/UNITS:LIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 
IN THE LIST. LIST EXAMPLE = /UNITS:0:5:10=12 
USE UNITS 0,5,10,11,12 (UNIT NUMBERS = 0-63) 


EXAMPLE OF SWITCH USAGE: 
START/TESTS:1=5/PASS: 1000/EOP: 100 


ONLY. A 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE rere) ee YOU MAY, 
FOR EXAMPLE, TYPE ‘'/TES:1=5°' INSTEAD OF *'/TESTS:1-5"". 


BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND. 


TESTS PASS FLAGS EOP UNITS 


START « x x x x 

RESTART X x x x x 

CONT INUE x x x 

PROCEED x 

DROP x 

ADD x 

PRINT 

DISPLAY x 

FLAGS 

ZFLAGS 

EXIT 

2.3 FLAGS 

FLAGS ARE USED TO ht UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERR FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 

ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE 

FL ITCH. THE ZFLAGS COMMAND MAY ALSO USED TC CLE 

ALL FLAGS. WITH THE EXCEPTION OF THE STA ND ZFLAGS COMMANDS, 
NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET O 
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CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


FLAG EFFECT 

HOE HALT ON ERROR - CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

1ER* INHIBIT ALL ERROR REPORTS 

IBRe INHIBIT ALL ERROR REPORTS EXCEPT 
FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE, NUMBER, PC, TEST AND UNIT) 

IXR* INHIBIT EXTENDED ERROR REPORTS (THOSE 
CALLED BY PRINTX MACRO’ 

PRI DIRECT MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE “BELL'' ON ERROR 

UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 

ISR INHIBIT STATISTICAL REPORTS (DOES NOT 
APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 

IDR INHIBIT PROGRAM DROPPING OF UNITS 

ADR EXECUTE AUTODROP CODE 

LOT LOOP ON TEST 

EVL EXECUTE EVALUATION (ON {DIAGNOSTICS WHICH 


HAVE EVALUATION SUPPORT 
*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


SEE THE XXDP* USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE Ae PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A "BELL" ON ERROR, YOU MAY USE THE FOLLOWING STRING 


/FLAGS:LOE: IER: BOE 


2.4 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HARDWARE INF ORMAT ION BY TYPING “CHANGE HW (L) ? 


CHAPTER 6 OF we avs USER*S MANUAL). WHEN YOU ANSWER T 


OF UNI D 
QUESTIONS FOR EACH UNIT. 
MUNITS (D) ? 1 


. 
’ 


UNIT 1 
LP11 ADDRESS: (0) 


(17751 
INTERRUPT VECTOR : (0) 


4) ? 
(200) ? 


USER DOCUMENTATION CZLNAAO 
12-JAN=-83 08:16 


CZLNAA.P11 
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2.5 SOFTWARE QUESTIONS 


WILL 
lf YOU WISH 9 CH ANGE ANY PARAMETERS, ANSWE 
“Y'', THE SOFTWARE QUESTIONS AND THE DEFAUL 


IN THE NEXT PARAGRAPH(S). 


RUN_ MANUAL INTERVENTION TESTS (N) ? 


TESTING 


IN U.S.A, 
AUTODROP ERROR COUNT (b) 5? 
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ASK FO 


DEFAULT IS NO 


2.6 EXTENDED P-TABLE DIALOGUE 


a ry ANSWER. THE wince Th QUESTIONS, week f ARE wees ae fT 


ERA 
THE ANSWERS ARE REPETITIOUS. 


THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS 0 
IS ONE HARDWARE PARAMETER Bi Ay VARY AMONG UNITS CALLED T 


G-FACTOR. THIS Q-FACTOR 


UNIT 1 
CSR ADDRESS (0) 
SUB-DEVICE # (0) 
Q-FACTOR (0) 0 ? 


v] 


UNIT 2 
CSR <7) a ? 


SUB-DEVICE # (0) 
Q-FACTOR (0) 1 ? 


UNIT 3 
CSR ADDRESS (0) 


? 


? 


SUB-DEVICE # (0) ? 


Q-FACTOR (0) 0 ? 


UNIT 4 

CSR ADDRESS (0) 
SUB-DEVICE # (0) 
Q-FACTOR (0) 0 ? 


UNIT 5 
CSR ADDRESS (0) 


? 


PLES 


N 
0 
I 
H 


OR 1. BELOW IS A SIMPLE WA 
TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS. 


# UNITS (D) 2? 8<CR> 


? 160000<CR> 
? O<CR> 
1<CR> 


160000<CR> 
1<CR> 


0<CR> 


160000<CR> 
2<CR> 


<CR> 


160000<CR> 
CR> 


160000<CR> 


OR AFTER A RESTART 
R_SOF TWARE 
Noe Su CL)? SPECIFIC 


YPING 
ALUES ARE DESCRIBED 


T 


E SUCH AS 
A COMMUNICATION 
LINES, THIS BECOMES TEDIOUS SINCE MOST OF 


SEQ 0007 


DROPS ANY UNIT FROM TEST WHICH EXCEEDS SPECIFIED NO. OF ERRORS 
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) 
? eee 


UN 
CSR ADDRESS (0) 160000<CR> 
SUB-DEVICE # (0) ? 7<CR> 
Q-FACTOR (0) 1? <CR> 


NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES W'EN A 
NON-DEFAULT RESPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! 


AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 
DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 
NOT VERY EFFICIENT. 


THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
LET'S BUILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION 
FEATURE. 

# UNITS (D) ? 8<CR> 

UNIT 1 

CSR ADDRESS (0) ? yg Pte 

SUB=DEVICE # (0) ? 0,1<CR> 

Q-FACTOR (0) 0? 1, OcCRS 

UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 

SUB=DEVICE # (0) ?. 2=5<CR> 

Q-FACTOR (0) 0 ? O<CR> 

UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 

SUB-DEVICE # (0) ? 6,7<C 

“FACTOR (0) 0? 1<CR> 
AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 
ONE PASS THROUGH THE QUESTIONS. IN THE FIRST PASS, TWO ENTRIES 
ARE BUILT SINCE TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED. THE 
SERVICES ASSUME eg rue CSR ADDRESS IS 160000 FOR BOTH SINCE IT 
AS SPECIFIED ONLY ONCE. IN THE SECOND PASS, FOUR ENTRIES WERE 
BUILT. THIS 1s BECAUSE FOUR SUB-DEVICES WERE SPECIFIED. THE 
-"" CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA 

FROM THE FIRST NUMBER TO THE SECOND. IN THIS CASE, SUB-DEVICES 


SEQ 0008 
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2. 3, 4 AND 5 WERE SPECIFIED. (IF THE SUB=DEVICE WERE SPECIFIED 
BY ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST 
BE _ON AN EVEN BOUNDARY.) THE CSR ADDRESSES AND Q-FACTORS FOR 
THE FOUR ENTRIE ig ASSUMED TO BE 160000 AND 0 RESPECTIVELY 
SINCE fueN WER Y SPECIFIED ONCE. THE LAST TWO UNITS AnE 
SPECIFIED IN THE THIRD PASS. 


THE WHOLE ——— COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELO 


# UNITS (D) 2? 8<CR> 

UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB=DEVICE # (0) ? 0=7<CR> 
Q-FACTOR (0) 0? 0,1,0,,,,1,1<CR> 


AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIE 
A NULL FIELD) TELL THE RUNTIME SERVICES TO RE 


2.7 GUICK START-UP PROCEDURE (XXDP+) 
TO START-UP THIS PROGRAM: 
1. BOOT XXDP+ 


2. TYPE ‘'R NAME'’, WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 


3. TYPE ‘*START" 

4. ANSWER THE ‘"CHANGE HW'* QUESTION WITH ‘'y"’ 

5. ANSWER ALL THE HARDWARE QUESTIONS 

6. ANSWER THE "‘CHANGE SW'’ QUESTION WITH ‘'N’ 
WHEN wey Po Le THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE 4p chneeten THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 
3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 
THERE ae THREE Levets OF a eHir?: THAT MAY BE ISSUED BY 
A DIAGNOSTIC: GENERA este AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTE D UNLESS THE TER" Ate IS SET (SECTION 2.5). 
THE GENERAL ERROR MESSAGE IS OF THE FORM 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC: XXXXXX 
ERROR MESSAGE 


»WHERE; NAME = fay oe UE NAME 
TYPE = ERA R TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 
NUMBER ERROR NUMBER 


‘wy ENCLOSING 


S$ ¢ 
PEAT THE LAST REPLY. 
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UNIT NUMBER = 0 = N (N IS LAST UNIT IN PTABLE) 
TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL 
BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION. ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
‘IER’ OR “IBR' FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 
EXTENDED. ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLESS tHe ONTER™ “IBR' OR 'IXR' FLAGS ARE SET (SECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 
3.2 SPECIFIC ERROR MESSAGES 
ERROR DESCRIPTION 
1 “PRINTER ERROR" 
ERROR CONDITION IN THE PRINTER. 
2 “PRINTER NOT READY" 
PRINTER NOT READY TG ACCEPT DATA, 
3 “PRINTER DID NOT INTERRUPT’ 
FAILURE IN INTERFACE LOGIC. 
4 “LOADING PRINTER BUFFER DOES NOT CLEAR READY" 
FAILURE IN INTERFACE LOGIC. 
5 “PRINTER INTERRUPTED AT SAME LEVEL AS THE 
PROCESSOR’ 
FAILURE IN INTERFACE LOGIC. 
6 “PRINTER ERROR" 
ERROR CONDITION IN THE PRINTER. 
7 “PRINTER NOT READY’ 
PRINTER NOT READY TO ACCEPT DATA. 
* “PAPER QUT INTERLOCK SWITCH FAILURE” 
FAULTY INTERLOCK SWITCH 
9 “PAPER TRAY HANDLE INTERLOCK SWITCH FAILURE" 
FAULTY INTERLOCK SWITCH 
10 “FRONT DOOR INTERLOCK SWITCH FAILURE" 


FAULTY INTERLOCK SWITCH 


ERROR MESSAGES #11 THRU #12 HAVE BEEN ELIMINATED 


13 “INTERRUPT SERVICING FOR THE FOLLOWING 
DEVICE DID NOT OCCUR’ 
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GLOBAL ERROR INDICATING INTERRUPT FOR 
DATA TRANSFER DID NOT OCCUR. 


14 “PRINTER STATUS ERROR’’ 
GLOB a ERROR INDICATING PRINTER ERROR 
CONDITION. 

15 “OUTPUT TIMEOUT ERROR" 
GLOBAL ERROR INDICATING TRANSMISSION 
OF LAST CHARACTER DID NOT OCCUR 
WITHIN A GIVEN TIME. 


4.0 PERFORMANCE AND PROGRESS REPORTS 
PERFORMANCE AND PROGRESS REPORTS ARE NOT SUPPLIED. 


5.0 DEVICE INFORMATION TABLES 
DEVICE INFORMATION APPEARS IN THE GLOBAL DATA SECTION. 


6.0 TEST SUMMARIES 


TEST 1 
INTERFACE 


LOGIC 
VERIFIES OPERATION OF INTERFACE LOGIC BETWEEN THE PRINTER AND THE CPU. 


TEST 2 
DATA TRANSFER PATHS 

CHECKS THE DATA TRANSFER PATHS FROM THE PRINTER OUTPUT TO 
THE PROCESSOR INTERFACE. 


TEST 3 
PRINTABLE CHARACTERS 
CHECKS FOR PRCPER PRINTING OF ALL PRINTABLE CHARACTERS. 


TEST 4 
NON@PRINTABLE CHARACTERS 
CHECKS FOR PROPER DETECTION OF ALL NON-PRINTABLE CHARACTERS. 


TEST 5 

PRINT CONTROL 

CHECKS THAT CHARACTERS IN EXCESS OF 132 CHARACTERS ON A LINE 
ARE DISREGARDE). 


TEST 6 
MULTIPLE LINE ADVANCE 
CHECKS THE MULTIPLE LINE ADVANCE FOR PROPER PAPER MOVEMENT. 


43 4 
oe TRIKE 

THIS TEST CHECKS THE MACH] 
BUFFER AND LINE BUFFER LIMITATION 


a S eusesineee CAPABILITY AS WELL AS PAGE 
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PRODUCT CODE: AC=1343A-MC 

PRODUCT NAME: CZLNAAO LNO1 DIAG 
MAINTAINER: SMALL SYSTEMS DIAGNOSTICS 
AUTHORS: GLENN A. PERNA 

DATE JAN 1983 


;COPYRIGHT (C) 1983, BY 
s DIGITAL EQUIPMENT CORPORATION, MAYNARD MASSACHUSSETTS 01754 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 

SINGLE COMPUTER SYSTEM AND MAY BE aad ONLY WITH THE INCLU= 

SION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY 

CTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERW!SE MADE 

a TO an OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM 

TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND 
OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. 

CT 


THE INFORMATION IN THIS SOFTWARE IS ee: TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT GY DIGITAL 
EQUIPMENT CORPORATION. 


DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 
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;¢¢ 
; FUNCTIONAL DESCRIPTION 
THIS pinews to wire attnr ca 


LINE P 


RINTER 


AND IT 


B 2 


ASSOC 


I 
Ss 
A TOTAL OF 16 PRINTERS CAN BE T 
THE PROGRAM CONSISTS OF T-B-S TESTS, 
at st ate 1S COMPATIBLE TO THE PDP=11 DIAGNOSTIC SUPERVISOR, ACT/SLIDE, AND 
+. 


; VERSION 


HISTORY 


A-0 JAN 


REV. A=0 


1983 


Pp 


ES PR 
ATED I 
ESTED. 


INITIAL RELEASE 


OPER OPERATION OF THE LNO1 
NTERFACE MODULE. 


GLENN A, PERNA 
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655 TITLE CZLNAAO LNOI TEST 

$28 .SBTTL PROGRAM HEADER 

658 -MCALL SvC 

659 000000" SvC INITIALIZE SUPERVISOR MACROS 
66 -MCALL STRUCT 

661 000000° STRUCT ;STRUCTURED MACRO ae 
$66 000000 SLSTIN= 0 ; LIST ASSY CODE LEFT 
66 900009 SLSTTAG= 0 3 LIST TAGS LEFT 
$66 17777 $LOCTAG= -1 

666 000000 SVCINS= 8 sLIST INSTRUCTIONS 

667 000900 SVCTST= sLIST TEST TAGS 

668 000000 SVCSUB= 0 LIST SUBTEST TAGS 

669 000000 SVCGBL= 0 LIST GLOBAL TAGS 

on 000000 SVCTAG= 0 LIST OTHER TAGS 

672 -ENABL AMA 

673 -ENABL ABS 

674 -ENABL LC 

67> 002000 -=2000 

677 002000 BGNMOD 

O78 002000 POINTER BGNSW,BGNSFT 

680 002000 HEADER CZLNA,A,0,60,1,340 

(4) 002000 LSNAME:: :O1AGNOSTIC NAME 

(4) 002000 103 ASCII /C/ 

(4) 002001 132 eASCII /2/ 

(4) 002002 114 eASCII /L/ 

(4) 002003 116 eASCII /N/ 

(4) 020 101 eASCII /A/ 

(6) 002005 0 -BYTE 0 

(6) 002006 000 BYTE 0 

(S$) 002007 00 -BYTE 0 

(5) 002010 LSREV:: REVISION LEVEL 

(4) 002010 101 eASCII = /A/ 

(5) 002011 LSDEPO:: 30 

(4) 002011 060 eASCII = /0/ 

(5) 002012 LSUNIT:: NUMBER OF UNITS 

(4) 002012 000000 -WORD 0 

(5) 002014 LSTIML:: LONGEST TEST TIME 

(4) 092014 000060 «WORD 60 

(5) 902016 LSHPCP:: sPOINTER TO H.W. QUES. 
(4) 002016 022140 -4JORD LSHARD 

(5) 002020 LSSPCP:: POINTER TO S.W. QUES. 
(4) 002020 022220 «WORD LS$SOFT 

(5) 002022 ; LSHPTP:: PTR. TO DEF. H.W. PIABLE 
(4) 002022 002222 -WORD LSHW 

(5) 002024 LSSPTP:: sPTR. TO S.W. PTABLE 
(4) 002024 002234 -WORD L$SW 

(5) 002026 LSLADP: : DIAG. END ADDRESS 

(4) 002026 022370 WORD LSLAST 

(5) 002030 LSSTA:: sRESERVED FCR APT STATS 
(4) 002030 000000 «WORD 0 

(5) 002032 L$CO:: 
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CZLNAAO LNO1 TEST D 
CZLNAA.P11 12-JAN-83 08:16 PROGRAM HEADER 
(4) 002032 000000 -WORD 0 
(5) 002034 LSDTYP:: sDIAGNOSTIC TYPE 
(4) 002034 000001 eWORD 1 
(5) 002036 LSAPT:: ;APT EXPANSION 
(4) 002036 000000 «WORD O 
(5) 002040 LSDTP:: ;PTR. TO DISPATCH TABLE 
(4) 002040 002132 .WORD LSDISPATCH 
(5) BoSpe5 LSPRIO:: sDIAGNOSTIC RUN PRIORITY 
(4) 002042 000340 «WORD 340 
(5) 002044 LSENVI:: sFLAGS DESCRIBE HOW IT WAS SETUP 
(4) 002044 000000 -WORD O 
(5) 002046 LSEXP1:: sEXPANSION WORD 
(4) 002046 000900 -WORD 0 
(S$) 002050 LOMREV:: ;SVC REV AND EDIT #@ 
(4) 002050 003 BYTE CSREVISION 
(3) 002051 003 BYTE CSEDIT 
(5) 002052 LSEF:: sDIAG. EVENT FLAGS 
(4) 002052 000000 -WORD OQ 
(5) 002054 000000 -WORD 0O 
(5) 002056 LSSPC:: 
(4) 002056 000000 eWORD 0O 
(5) 002060 LSDEVP:: ; POINTER TO DEVICE TYPE LIST 
(4) 002060 002212 eWORD LSDVTYP 
(5) 002062 LSREPP:: ;PTR. TO REPORT CODE 
(4) 002062 000000 eWORD 0O 
(5) 002064 LSEXP4:: 
(4) 002064 000000 -WORD 0O 
(5) 002066 LSEXPS:: 
(4) 002066 000000 -WORD 0O 
(5) 002070 LSAUT:: PTR. TO ACD UNIT CODE 
(4) 002070 000000 -WORD 0O 
(5) 002072 LSDUT:: sPTR. TO DROP UNIT CODE 
(4) 002072 000000 -WORD 0O 
(5) 002074 LSLUN:: 3LUN FOR EXERCISERS TO FILL 
(4) 002074 000000 -WORD O 
(5) 002076 LSDESP:: sPOINTER TO DIAG. DESCRIPTION 
(4) 002076 002152 -WORD LS$DESC 
(5) 002100 LSLOAD:: ;GENERATE SPECIAL AUTOLOAD EMI 
(4) 002100 104035 EMT ESLOAD 
(5) 002102 LSETP:: :POINTER TO ERRTBL 
(4) 002102 000000 -WORD 0 
(5) 002104 LSICP:: ;PTR. TO INIT CODE 
(4) 002104 005456 »WORD LSINIT 
(5) 902106 LSCCP:: sPTR. TO CLEAN-UP CODE 
(4) 002106 007232 -WORD LSCLEAN 
(5) 002110 LSACP:: sPTR. TO AUTO CODE 
(4) 002110 002226 -WORD LSAUTO 
(5) 002112 LSPRT:: sPTR. TO PROTECT TABLE 
(4) 002112 002122 -WORD LSPROT 
(5) 002114 LSTEST:: ; TEST NUMBER 
(4) 002114 000000 -WORD 0O 
(5) 002116 LSDLY:: :DELAY COUNT 
(4) 002116 000000 -WORD 0 
(5) 002120 LSHIME:: 3PTR, TO HICH MEM 
“ 002120 000000 «WORD 0 


2 
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68 : 

ret ; THE FOLLOWING IS A LOAD PROTECTION TABLE 
685 00212 BGNPROT 

(3) 00212 LSPROT:: 

686 002122 000000 -wORD 0 

687 002124 177777 «WORD 1 

$88 002126 177777 WORD 1 

689 002130 ENDPROT 


F 2 
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691 -SBTTL DISPATCH TABLE 
+4 
694 ; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
244 ; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 
697 ~ 
698 002130 DISPATCH 8 3;X= NUMBER OF TESTS 
(4) 002130 000010 -WORD 8 
(3) 002132 LSDISPATCH:: 
(6) 002132 007426 «WORD 11 
(6) 002134 pi ores WORD Ie 
(6) 002136 011356 «WORD T 
(6) 002140 BiSpeo eWORD 14 
(6) 002142 013050 WORD T5 
(6) 002144 014302 .WOR T6 
(6) 002146 014770 WORD 17 
{3 002150 016522 -WORD 18 
700 zFOR USE ON REVISION C OF THE SUPERVISOR 
702 002152 DESCRIP <CZLNAAO LINE PRINTER DIAGNOSTIC> 
(4) 002152 LSDESC:: 
(3) 002152 055103 047114 046501 eASCIZ /CZLNAAO LINE PRINTER DIAGNOSTIC/ 
(3) 002160 020060 044514 042516 
(3) 002166 050040 044522 052116 
(3) 002174 051105 042040 040511 
(3) 002202 047107 051517 044524 
(3) 02210 000103 
(2) .EVEN 
703 002212 DEVTYP <LNO1> 
(4) 002212 LSDVTYP:: 
(3) 002212 047114 030460 000 eASCIZ /LNOI/ 
(2) 002220 EVEN 
704 
705 


706 
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-SBTTL DEFAULT HARDWARE P-TABLE 


3: THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
3 THE TEST@DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
; IS IDENTICAL TO THE RUN-TIME P-TABLE. 
BGNHW ODFPTBL 
-WORD L10001-L$HW/2 
LSHW:: 
DFPTBL: 
eWORD 177514 3LP11 REGISTER ADDRESS 
-WORD 200 :LP11 INTERRUPT VECTOR 


: INTERRUPT VECTOR PRIORITY IS 4 AND CANNOT BE CHANGED 


ENDHW 
L10001: 


BGNAUTO 
LSAUTO:: 


NOP ; NOT USED 
ENDAUTO 
TRAP C$AUTO 


L10002: 


SEQ C019 
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-SBTTL SOFTWARE P-TABLE 


p44 
; THE SOFTWARE P=TABLE CONTAINS THE VALUES OF THE PROGRAM 
; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 


BGNSW SFPTB 

eWORD 1L10005-L$Sw/2 
L$SwW:: 
SFPTBL:: 


INHINT: .WORD 0 30 IF NO INTERVENTION TESTS 


:1_IF rT is teh INTERVENTION TESTS 


DEFAULT 
MAXERR: .WORD 5 ; AUTODROP ERROR COUNT 
; IF ERROR COUNT EXCEEDS MAXERR THE UNIT WILL BE DROPPED FROM TEST 
ENDSW 
L10003: 


SEQ 0020 
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1/0 MACRO DEFINITIONS 
-SBTTL 1/0 MACRO DEFINITIONS 


MACRO OUTPUT ADD, BFCNT,ERR,PRINTS 
MOV ADD ,BUF ADD 


MOV BFCNT, se Sa 


sSAVE THE BUFFER ADDRESS 
BUFFER BYTE COUNT BFCNT 


MOV #-1,PRINTR 3; OUTPUT TO ALL UNITS 
-IF B ERR 
MOV #LPERR,ERRSVC 
-ENDC 
-IF NB ERR 
MOV ERR,ERRSVC 
-ENDC 
-IF B PRINTS 
ent MOV #1,BUFREP ; PRINT ONCE DEFAULT 
-1F NB PRINTS 
— MOV PRINTS BUF REP ; SUPPLY PRINT COUNT 
PC, TOCTRL CALL THE DRIVER 


-MACRO OQUTPUI ADD,BFCNT,ERR,UNIT,PRINTS 
MOV A UF ADD 


JSR 
NDM QUTPUT 


DD.B 
MOV BF CNT ,BUF CNT 


SAVE BUFFER ADDRESS 
;BUFFER BYTE COUNT BF CNT 


-If BERR 
MOV #LPERR ,ERRSVC 
-ENDC 
-I1F NB ERR 
MOV ERR ,ERRSVC 
-ENDC 
-IF B PRINTS 
—_ MOV #1, BUFREP ; PRINT ONCE DEFAULT 
-I1F NB PRINTS 
—_ MOV PRINTS ,BUF REP ; SUPPLY PRINT COUNT 
MOV UNIT, gg ; SUPPLY UNIT NUMBER 
— JSR PC, 10CTR CALL THE DRIVER 


SEQ 0021 


A REPEAT 


puter srete ad 
co 


8 MAX 


PRINTS IS A PARAMETER CONTROLLING THE NUMBER IF TIMES THE DATA OR 
MESSAGE IS TO BE PRINTED (SENT TO THE PRINTER). DEFAULT IS 1. 


& TIneGUT & OF okti SECONDS IS Bh yy BASED ON THE FOLLOWING ASSUMPTIONS : 
1 PAGE OF tg AT 8 LPI. ) 


UNT OF 8 ( 
3 AN INITIAL BAND STARTUP TIME OF 2.5 SECON 
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804 .SBTTL GLOBAL AREAS 
806 002240 BGNMOD 
i “ 
809 > THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES 
B19 3; THAT ARE USED IN MORE THAN ONE TEST. 
812 . 
B16 002240 EQUALS 
(1) > BIT DIFINITIONS 
(1) 100000 B1T15== 100000 
(1) 040000 BIT14== 40000 
(1) 020000 BIT13== 20000 
(1) 010000 BIT12== 10000 
(1) 004000 BIT11== 4000 
(1) 002000 BIT10== 2000 
(1) 001000 BITO9== 1000 
(1) 000400 BITO8== 400 
(1) 000200 BITO7== 200 
(1) 000100 BIT06== 100 
(1) 000040 BITOS== 40 
(i) 000020 BIT04== 20 
(1) 000010 BIT03== 10 
(1) 000004 BITO2== & 
(1) 000002 BITO1== 2 
(1) 000001 BIT00== 1 
(1) 001000 B1T9== BITO9 
(1) 000400 BIT8== BITO8 
(1) 000200 BIT7== BIT07 
(1) 000100 BIT6== BIT06 
(1) 000040 BITS== BITOS 
(1) 000020 BIT4== BIT04 
(1) 000010 BIT3== BITO3 
(1) 000004 BlT2== BITO2 
(1) 000002 BITi== BIT01 
(1) 000001 B1T0== BITO0 
(1) : EVENT FLAG DEFINITIONS 
ah :  EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 
(1) 000040 EF START== 32. : START COMMAND WAS ISSUED 
(1) 000037 EF.RESTART== 31. ; RESTART COMMAND WAS ISSUED 
(1) $b0035 a + A ONEU PASS HAS. BEEN STARTED 
a) p00082 EF PUR 28. : A POWER-FAIL/POWER-UP OCCURRED 
(1) 3 
(1) P 
(1) ; PRIORITY LEVEL DEFINITIONS 
(1) 000340 br107== 340 
(1) 000300 PRI06== 300 
(1) 000240 PRI0S5== 240 


K 2 
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a) 000200 PRI04== 200 

(1) 000140 PRIO3== 140 

(1) 000100 PRIO2== 100 

(1) 000040 PRIOI== 40 

(1) 000000 PRIOO== 0 

C1) [OPERATOR FLAG BITS 

1) 000004 EVL== 4 

(1) 000010 LOT== 10 

(1) 000020 ADR== 20 

(1) 000040 1DU== 40 

(1) 000100 1SR== 100 

(1) 000200 UAM== 200 

(1) 000400 BOE== 400 

(1) 001000 PNT== 1000 

(1) 002000 PRI== 2000 

(1) 004000 IXE== 4000 

(1) 010000 IBE== 10000 

(1) 020000 IER== 20000 

(1) 040000 LOE== 40000 

a) 100000 HOE== 100000 

821 000012 LF==12 

822 000014 FR==14 

823 000015 CR==15 

824 000177 DEL==177 

eee GLOBAL ERROR CODES FOR USE BY GENERAL ERROR ROUTINE 

828 000001 STATER= 1 ; TRANSMITTER STATUS ERROR IN OUTPUT 

829 000002 TIMOUT= 2 STIMEOUT ERROR IN IO DRIVE 

830 ZTHIS ERROR INDICATES THE LAST CHARACTER 

831 WAS Nor TRANSMITTED WITHIN A GIVEN TIME 

832 000003 NOINTR= 3 [GROSS TIME OUT ERROR. THE SPECIFIED DID NOT 

833 s INTERRRUPT. THERE F ORE 10 DRIVER MODULE WAS 

834 SNOT CALLED 

eS ~SBTTL GENERAL REGISTER USAGE DEFINITIONS 

838 RO RESERVED FOR USE BY THE MACRO PACKAGES 

839 :R1 MAXIMUM NUMBER OF UNITS TO TEST L$UNIT-1 

840 3R2 UNIT NUMBER BY 2. USED TO CALCULATE OFFSET INTO PROPER 

841 8 PRINTER TABLE 

842 R3 TEMPORARY STORAGE 

843 ZR4 

844 zR5 

845 R6 STACK POINTER 

846 R7 PROGRAM COUNTER 

847 3 

848 

B49 

850 : 

8! ; LP STATUS TABLE BIT DEFINITIONS 

853 100000 ERROR = BIT15 


L 
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2-JAN=83 08:1 GENERAL REGISTER USAGE DEFINITIONS 
040000 DROPED = BIT14 
020000 ACTIVE = Bits 
000377 LOBYTE = 377 


+ BIT MASK FOR CLEARING LOBYTE (COUNTER) 
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GLOBAL DATA SECTION 
~SBTTL GLOBAL DATA SECTION 


FLAG: .WORD 0 7<CR> FLAG FOR USE BY SUPERVISOR 
LINCNT: .WORD 0 sLINE COUNTER 
LSTCNT: .WORD 0 
COUNT: .WORD 0 
CCNT: .WO 0 
STRCNT: .WO 0 
CHRGEN: .WORD 0 
Me ls 0 ;UNIT COUNTER 4 SINGLE UNIT TESTING 
LUNIT: .WORD 0 SUNIT COUNTER FOR ERROR 


ZAND TESTS NOT USING THE OUTPUT 


MACROS » 
PTABAD: .WORD 0 P-TABLE ADDRESS RETURNED BY GPHARD 
PRINTR: .WORD 0 SELECTED L LINE NO. 
CLKTYP: .WORD 0 SCLOCK TYPE CONTROL WORD 
:1= NO CLOCK ~ wena 
s2= KWIl-L LINE CLOCK 
35= KW11-P og gre CLOCK 
CLOCKP: .WORD 0 ; CLOCK P-TABLE A 
CLKCSR: .WORD QO CLOCK CSR RESS. 
CLKSET: .WORD QO ; CLOCK TIME SET REG ADDRESS 
CLKVEC: .WOR 0 :CLOCK VECTOR ADDR 
CLKENA: .WORD QO sCLOCK ENABLE BITS 
ERRCOD: .W 0 sERROR CODE TYPE FOR GENERAL 
sERROR ROUTINE 
ERRFLG: .WORD 0 s EXPECTED ERROR INDICATOR 
UU -WORD 0 ;_# UNITS ACTUALLY UNDER TEST 


31 IF ERROR WAS EXPECTED. 


INDEX: .WORD QO 
VFUCMD: .WORD 0 


*MACRO VARIABLES 


BUFADD: .WORD 0 OUT TE = pF Hs OF DATA TO BE SENT 
BUFCNT: .WORD 0 ;NUMBER OF BYTES TO TRANSFER 
BUFREP: .WORD 0 ; NUMBER OF TIMES TO PRINT 


*LNO1 PARAMETER WORD TABLES 


LPCSR: .REPT 16. : ADDRESS OF CSR FOR EACH LP11 
vp 

LPVEC: .REPT 16 : INTERRUPT VECTOR ADDRESS 
-WORD 0 


NDR 
LPBUF: REPT 16, ; DATA BUFFER REGISTER ADDRESS 


SEQ 0025 
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GLOBAL DATA SECTION 


STATUS: 


CURADD: 


MSGCNT: 


REPCNT: 


MSGADR: 


CURCNT: 


LPINTR: 


DELCNT: 


ERRSVC: 
ERRTBL:: 


WORK:: 
WORK1: 


-SBTTL 


«WORD 0 
-ENDR 
eREPT 16, 
» WORD 
-ENDR 
eREPT 16 
«WORD 
-ENDR 
eREPT 16. 
~WORD 0 
-ENDR 
REPT =16. 
-WORD 0 
-ENDR 
-REPT 16. 
-WORD 0 
-ENDR 
-REPT 16. 
-WORD  =1 
-ENDR 
eREPT 16. 
-WORD 0 
eENDR 
-REPT 16. 
-WORD 0 
-ENDR 
WORD 0 
»REPT 16. 
.WOR 0 
-ENDR 
-WORD QO 
-WORD 0 


OUTPUT BUFFER 


2 


SEQ 0026 


UNIT STATUS 

CURRENT ADDRESS OF OUTPUT DATA BYTE 

INITIAL BYTE COUNT OF MSG FOR REPEAT RESTORE 
NO. OF TIMES TO REPEAT MESSAGE 

ADDRESS OF DATA TO PRINT START OF DATA 
CURRENT COUNT REMAINING TO OUTPUT 

INTERRUPT ROUTINE ADDRESS 


TIMEOUT DELAY COUNTER 


ERROR ROUTINE DISPATCH +; rian 
ERROR COUNT FOR EACH UNIT 


WORK AREA 


3150 BYTES IS RESERVED FOR THE OUTPUT BUFFER AREA 


OUTBUF : 


E 
REPT 150. 
0 


B 3 
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965 .SBTTL GLOBAL TEXT SECTIGN 
965 -NLIST BEX 
967 : "THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
968 i MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
969 : MORE THAN ONE TEST. 
971 003352 051120 047111 042524 CSRERR: .ASCIZ /PRINTER ERROR/ 
972 003370 051120 047111 042524 RDYERR: .ASCIZ /PRINTER NOT READY/ 
97 003412 040520 042520 020122 PAPSWI: .ASCIZ /PAPER OUT INTERLOCK SWITCH FAILURE 
974 00345 is? 050101 051105 HANSWI: .ASCIZ /PAPER TRAY HANDLE INTERLOCK SWITCH FAILURE/ 
975 003530 051106 047117 020124 DOOSWI: .ASCIZ /FRONT DOOR INTERLOCK SWITCH FAILUR 
976 003574 0511246 047101 046523 INTER1: .ASCIZ /TRANSMIT INTERRUPT TIMEOUT/ 
977 003627 120 044522 052116 TXERR: .ASCIZ /PRINTER STATUS ERROR/ 
978 003654 052517 050124 052125 OUTTIM: .ASCIZ /OUTPUT TIMEOUT Vetta 
979 003701 125 044516 920124 TXNOIN: .ASCIZ2 /UNIT FAILED TO INTERRUPT/ 
980 0037352 046101 020114 047125 UUTEQO: .ASCIZ /ALL UNITS HAVE BEEN DROPPED... RESTART../ 
981 004002 EVEN 
982 
983 
984 : 
985 ; 
986 
44 LIST BEX 
p24 : FORMAT STATEMENTS USED IN PRINT CALLS 
991 
992 004002 040445 050114 030461 LPDROP: .ASCIZ /%ZALP11 UNIT %D2%A DROPPED FROM TEST2N/ 
004010 052440 044516 020124 
004016 042045 022462 020101 
006024 051104 050117 042520 
004032 020104 051106 046517 
004040 052040 051505 022524 


004046 000116 
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GLOBAL SUBROUTINES SECTION 


-SBTTL 


+4 


> THE GLOBAL SUBROUTINE 
; THAT ARE USED BY MORE 


+¢ 


LPERR: 


500008: 


50003$: 


GLOBAL SUBROUTINES SECTION 


SECTION CONTAINS THE SUBROUTINES 
THAN ONE TEST. 


FUNCTIONAL DESCRIPTION: 
SUBROUTINE TO PRINT THE GENERAL ERROR INFORMATION. 


PRINTS THE ERROR MESSAGE IN THE FOLLOWING FORMAT: 
“ERROR AT CSR XXXXKK UNIT Yy"’ 


WHERE XXXXXK= DEVICE CSR ADDRESS 
YY= UNIT NUMBER THAT FAILED 


CALLING SEQUENCE 
R PC,LPERR 
REQUIRED PARAMETERS 


ERRCOD MUST BE SET TO ONE OF THE ERROR CODES DESCRIBED 
UNDER ERROR CODES. 


R2_ IS USED INTERNAL TO THE ROUTINE. 
THE ROUTINE DOES A SAVE ON R 
AND RESTORES IT PRIOR TO EXITING. 


SELECT ERRCOD OF 3 VERIFY ;SELECT PROPER MESSAGE FORMAT 
MOV RRCOD,-(SP) 


CMP ERacOR .#5 


CASE 1 STATUS ERROR 
:= ERRTBL(R2) + #1 

2 SHIFT =1 

UN 


SEQ 0028 
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(5) 04126 003627 .WORD TXERR 
162) 004130 000000 “WORD 0 
1938 004132 CASE 2 sOUTPUT TIMEOUT ERROR 
(4) 004132 000430 BR 50006$ 
(5) 004134 500028: 
1038 004134 LET ERRTBL(R2) := ERRTBL(R2) + #1 
(7) 004134 005262 003060 INC ERRTBL(R2) 
1039 004740 LET LSLUN := R2 SHIFT 1 
(5) 004140 010237 002074 MOV R2,LS$LUN 
(8) 004144 006237 002074 ASR LSLUN 
1040 004150 ERRHRD 15,O0UTTIM ; 
(4) 006150 104456 TRAP  CSERHRD 
(5) 004152 000017 .WORD 1 
(5) 004154 003654 ;WORD OUTTIM 
12) 004156 000000 “WORD 0 
1042 004160 CASE 3 
(4) 004160 000415 BR 50006$ 
(5) 004162 50001$: 
1043 : NEVER RECIEVED THE INTERRUPT 
1044 004162 LET ERRTBL(R2) := ERRTBL(R2) + #1 
(7) 004162 005262 003060 INC ERRTBL(R2) 
1045 004166 LET LSLUN := R2 SHIFT <1 
(5) 004166 010237 002074 MOV R2,L$L 
(8) 004172 006237 002074 ASR LSLUN 
1046 004176 ERRHRD 16,TXNOIN 
(4) 004176 104456 TRAP  CSERHRD 
(5) 004200 000020 WORD 16 
(5) 004202 003701 “WORD  TXNOIN 
(5) 004206 000000 “WORD 0 
1047 
1048 
1049 
1050 004206 ENDSELECT 
(3) 004206 000402 BR 50006$ 
(3) 004210 50005$: 
(2) 004210 062706 000002 ADD #2,SP 
(3) 004214 50004$: 
mt 004214 50006$: 
1052 004214 IF ERRTBL(R2) GT MAXERR THEN 
(6) 094214 026237 003060 002236 CMP ERRTBL(R2) ,MAXERR 
(10) 004222 003402 BLE 50007 
1053 004224 004737 005314 JSR PC,DROPIT ; MAXIMUM ERROR COUNT EXCEEDED ! 
1054 004230 ENDIF 
(4) 004230 50007$: 
1055 004230 LET STATUS(R2) := STATUS(R2) CLR.BY #ERROR 
(7) 004230 042762 100000 002456 BIC #ERROR, STATUS (R2) 
1056 004236 LET ERRCOD := #0 
(4) 004236 005037 002302 CLR ERRCOD 
1057 004242 LET @LPCSR(R2) := #100 : CLEAR THE ERROR BIT AND ENABLE INTERRUPTS 
(4) 004242 012772 000100 002322 MOV #100, aLPCSR(R2) 
1058 004250 000207 R PC yAND EXIT 
1060 PSS SSS SSS SS SSS SSS SSSSSSSSSS SSS SSS SSS SSS TSE SS ST SSIS SSs: SSSsssSeeSsss 
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CZLNAA.P11 12=JAN=83 08:16 GLOBAL SUBROUTINES SECTION 
1061 : BIN2DA BINARY TO DECIMAL ASCII CONVERSION ROUTINE 
1062 ; ENTER WITH NUMBER TO BE CONVERTED ON THE STACK 
1063 ; FOLLOWED BY THE ADDRESS OF A 5 BYTE BUFFER 
1064 : FOR THE AS°II STRING. 5 DIGITS WILL BE CONVERTED 
1065 : LEADING ZEROES WILL BE CONVERTED TO SPACES. 
1066 3 CALL BY JSR PC,BIN2DA 
1067 g PT SS SSSSSSSSSSSSSSSSSSSSSS SSS SSS SSS SSS SSS SSS SS SSS SSSSSSSSsssre= 
1068 
004252 BIN2DA: PUSH R4,R5S 
004252 010446 MOV R4,-(SP) 
004254 010546 MOV RS. =(SP) 
004256 LET RG := (SP) : GET ADDRESS FOR ASCII STRING 
004256 016504 000006 MOV 6(SP) RG 
004262 LET RS := #TABLDA : GET ADDRESS OF DECIMAL TABLE 
004262 012705 004444 MOV #TABLDA,RS 
004266 LET FLAGDA := #6 y LEADING ZERO FLAG 
004266 005037 004456 CL FLAGDA 
004272 LET COUNTD := #0 
004272 005037 004460 CLR COUNTD 
; 8.(SP) HAS NUMBER TO BE CONVERTED 
004276 DECR DIGITS FROM #4 TO #0 BY #1 ; DO S DIGITS 
004276 012737 000004 004462 MOV #4,DIGITS 
004304 000402 BR 50610$ 
(6) 004306 50011$: 
(10) 004306 005337 004462 DEC DIGITS 
(7) 004312 500108: 
(7) 006312 005737 004462 TST DIGITS 
(9) 004316 002435 BLT 50012$ 
1076 004320 WHILE 8.(SP) GE (RS) DO : CREATE A DIGIT 
(4) 004320 50013$: 
(6) 004320 026615 000010 CMP 8. (SP), (R5) 
(10) 004324 002405 BLT 50014$ 
1077 004326 LET 8.(SP) := 8.(SP) = (RS) 
(7) 006326 161566 000010 SUS (R5),8. (SP) 
1078 004332 LET COUNTD := COUNTD + #1 
(7) 004332 005237 004460 INC COUNTD 
1079 004336 ENDDO 
(4) 004336 000770 BR 50013$ 
(3) 004349 50014$: 
1080 : CONVERT DIGIT TO ASCII OR SUPPLY A SPACE 
1081 004340 IF COUNTD GT #0 OR FLAGDA GT #0 THEN 
(6) 004340 005737 004460 TST COUNTD 
(8B) 034344 003003 BGT 50015$ 
(6) 904346 005737 004456 TST FLAGDA 
(10) 004352 003410 BLE 50016$ 
(6) 004354 50015$: 
1082 004354 LET COUNTD := COUNTD SET.BY #60 
(7) 004354 052737 000060 004460 BIS #60, COUNTD 
1083 004362 LET (R4)+ :B= COUNTD 
(4) 004362 113724 004460 MOVB COUNTD, (R4)+ 
1084 004366 LET FLAGDA := FLAGDA + #1 
(7) 004366 005237 004456 INC FLAGDA 
1085 004372 ELSE 
(4) 004372 000402 BR 50017$ 
(3) 004374 50016$: 
1086 004374 LET (R4)* :B= #40 


F_ 3 
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CZLNAA.P11 12-JAN=83 08:16 GLOBAL SUBROUTINES SECTION 
(4) 004374 1127246 000040 MOVB #40,(R4)+ 
1087 004400 ENDIF 
(4) 004400 50017$: 
1088 DO THEN NEXT DIGIT 
1089 004400 LET RS 
(7) 004400 062705 000002 ADD 
1090 004404 LET COON TD := #0 
(4> 004404 005037 004460 CLR COUNTD 
1091 004410 ENDDECR 
(5) 004410 000736 BR 50011$ 
(4° 004412 50012$: 
4 : JF NUMBER WAS A ZERO PRINT A ‘O° 
1093 004412 iF FLAGDA EQ #0 THEN 
(6) 004412 005737 004456 TST LAGDA 
(10) 004416 001002 BNE SbOs0$ 
1094 004420 LET -(R4) :8= #60 
(4) 004420 112744 000060 MOVB  #60,=(R4) 
1095 004424 ENDIF 
(4) 004424 §0020$: 
1096 ; CLEAN UP THE STACK AND EXIT 
1097 004424 LET 8. (SP) i 4(SP) 
(4) 004424 016666 000004 000010 MOV P),8. (SP) 
1098 004432 PoP RS RG 
(2) 004432 012605 MOV (5P)+,R5 
(3) 904434 012604 MOV (SP) +,R4 
1099 004436 ; LET SP := SP + #4 
(7) 004436 062756 000004 ADD #4,SP 
1100 004442 000207 RTS PC 
1102 
1103 004444 023420 001750 000144 TABLDA: .WORD 10000.,1000.,100.,10.,1 
004452 000012 000001 
1104 004456 000000 FLAGDA: .WORD 0 
1105 004460 000000 COUNTD: .WORD 0 
1106 004462 000000 DIGITS: .WORD 0 
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-S8TTL 1/0 DRIVER 

oe 

THE 1/0 DRIVER sout ee 1S INVOKED BY MEANS OF THE INTERRUPT SYSTEM, 
CALL TO JT IS JMP IODRV. 

RETURN RTI. 

ENTER ROUTINE WITH R2 SET UP TO DESIRED UNIT *2. R2 IS USED 

3TO CALCULATE OFFSET INTO PROPER TABLE. 

3R1 EQUALS MAXIMUM NUMBER OF UNITS ON SYSTEM UNDER TEST. 


002322 


002416 


002456 


002322 


ODRV: 
BNE 


#BITi5,@LPCSR 
021$ 


: CHECK FOR ERROR FLAG IN STATUS REG. 
I wBIT15 giOTSETIN aL PCSR(R2) THEN 


IF CCUNT NOT ZERO SEND NEXT BYTE 
IF worthy UM GT #0 THEN 


INC 


ENABLE INTERRUPT FOR NEXT BYTE 


LET STATUS(R2) := 
Tt bas STATUS(R2) 
CURCNT(R2) := 


BIS 
DEC 
BIS 
BR 


50022$: 


002516 
002716 
002416 


; CURRENT M 
DEC 


TST 
BLE 


MOV 
MOV 
MOVB 
INC 


CURCNT 
500 
@L PBUF (R2) 


LET 
SCURADD (RE) aLPB 4 (R2) 
LET CURA 


(R2) 
CURADD (RO) 


LET 
TT ack 


SG DONE, 


eo De) 
oz 


MSGCNT(R 
@CURADD ( 


P 
R 
2 
E 
é 
L 
RSGADR (Re 
é 
L 
R 
L 
CURAB (Re 
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LPBU 
URADD (RD) := 
CURCNT(R2) 


:B= @CURADD(R2) 
CURADD(R2) + #1 


CURCNT(R2) = #1 
= @LPCSR(R2) SET.BY #1 


:= REPCNT(R2) = #1 
THEN 


) := MSGADR(R2) 
= MSGCNT(R2) 
ass :B= @CURADD(R2) 


mMMme~n~PM 
~~ 


CURADD(R2) + #1 
:= CURCNT(R2) = #1 


STATUS(R2) SET.BY #ACTIVE 


00 


T COUNT NOT ZERO SEND AGAIN 
NT(R2) 


CNT(R2) GT #0 


; RESTORE THE MSG ADDR 


; RESTORE THE BYTE COUNT 


; RESEND THE MESSAGE 
; BUMP THE POINTER 
; DROP BYTE COUNT 


SEQ 0032 
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DNMAC X24, —, 
~JAN-83 08:16 


004576 005362 0C2716 

00c609 052762 020000 002456 
004610 012772 000100 002322 
004616 000406 


004620 042762 020000 002456 
004626 012772 000000 002322 


004634 000410 


004636 052762 100000 002456 


004644 012737 000001 002302 
004652 004777 176200 


004656 012602 
004660 000002 


50026$: 


DEC 
BIS 
MOV 


BIC 
MOV 


50025$: 
500238: 


L 
BR 


SET E 


H 
12-JAN-83 08:16 PAGE 15-1 ' 
1/0 DRIVER 


CURCNT(R2) 
LET STATUS(R2) 
#ACTIVE,STATUS(R2) 
LET aaa 
#100, @LPCSR(R2) 
gLSE 
50025$ 


500248: 
; CURRENT MSG DONE, REPEAT COUNT =) 
3 CLEAR ACTIVE AND Rebeare serait cass 


ATUS(R2) 
#ACTIVE ,STATUS(R2) 


ENDIF 


50026$ 


#ERROR,STATUS(R 
oP orees ae 


JSR PC,@ERR 
ti ERROR SERVICE SHOULD CLEAR ERROR BIT AND ENABLE INTR 


(SP)*,R2 


50071$: 
; CLEAR ERROR CONDITION, ENABLE INTERRUPIS 
. RROR FLAG 
LE; STATUS(R2) := oe SET.BY #ERROR 


LET ERRCOD := #STATER 


STATUS(R2) SET.BY ACTIVE 
: RE-ENABLE INTERRUPTS 


STATUS(R2) CLR.BY ACTIVE 


SEQ 0033 
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67 -SBTTL 1/0 CONTROL 

68 see 

69 ; 

70 : THE 1/0 CONTROL SUBROUTINE IS A SINGLE ENTRY QUEUE MANAGER. 
71 ; THIS ROUTINE IS INVOKED BY A JSR FROM AN I/O CALL. 
Lf: ; INPUTS: PRINTR -1 FOR ALL TERMIN 

7 : N FOR PRINTER NUMBER 'N’ 

74 3 BUFADD ADDRESS OF MESSAGE TO PRINT 
2 ; BUFCNT BYTE COUNT TO TRANSMIT TO PRINTER 
77 : ERRSYC ADDRESS OF ERROR SERVICE SUBROUTINE 
re 3 BUFREP iS NO. OF TIMES TO PRINT THE MSG 
80 : 

81 004662 IOCTRL: PUSH R2,R3 

2) 004662 010246 MOV R2,-(SP) 

2) 004664 010346 MOV R3,-(SP) 

83 : IF PRINTR IS =1 QUE OUTPUT TO ALL PRINTERS SELECTED 
Be 3 OTHERWISE TO UNIT NUMBER IN PRINTR, 

86 004666 If PRINTR EQ #=1 THEN 

6) 004666 023727 002264 177777 CMP PRINTR,#=1 

10) 004674 001005 BNE 50027$ 

87 004676 LET R3 := LSUNIT 

4) 004676 013703 002012 MOV LSUNIT,R3 

88 004702 LET LSLUN := #0 

4) 004702 005037 002074 CLR L$LUN 

89 004706 ELSE 

4) 004706 000405 ER 500308 

3) 004710 50027$: 

90 004710 LET R3 := #1 

4) 004710 012703 000001 MOV #1,R3 

91 004714 LET L$LUN := PRINTR 

4) 004714 013737 002264 002074 MOV PRINTR,LSLUN 

92 004722 ENDIF 

$3 004722 50030$: 

oe : REPEAT TILL R3 = 0 

96 004722 CTLLOP: 

97 004722 IF R3 EQ #0 THEN 

6) 094722 005703 TST R3 

10) 904724 001002 BNE 500318 

98 004726 INLINE <JMP CTLEND> 

2) 004726 000137 005240 JMP CTLEND 

99 004732 ENDIF 

a) 004732 50031$: 

4 3 USE R2 AS AN INDEX INTO THE UNIT TABLES 

03 004732 LET R2 := LSLUN SHIFT 1 

5) 004732 013702 002074 MOV L$LUN,R2 

8) 004776 006302 ASL i 

04 004740 LET ERRCOD := #0 

4) 004740 005037 002302 CLR ERRCOD 
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205 : 

$09 ; If THE UNIT HAS BEEN DROPPED SELECT THE NEXT UNIT 

208 004744 1F #DROPED NOTSETIN STATUS(R2) THEN 

(6) 004744 p5e7 be 040000 002456 BIT #DROPED ,STATUS(R2) 

139) 004752 00112 BNE 50032$ 

$i9 sTEST FOR DVC ERROR BIT SET 

212 004754 IF #BI1T15 SETIN @LPCSR(R2) THEN 

(6) 004754 032772 100000 002322 BIT #BITIS ALPCSR(R2) 

(10) 004762 001407 BEQ 50033$ 

213 004764 LET ERRCOD := #STATER ; STATUS REG ERROR BIT 15 SET IN CSR 
(4) 004764 012737 000001 002302 MOV #STATER,ERRCOD 

214 004772 LET STATUS(R2) := STATUS(R2) SET.BY #ERROR 

(7) 004772 052762 100000 002456 BIS #ERROR,STATUS(R2) 

215 005000 ELSE 

(4) 005000 000455 ik 50034$ 

{o) 005002 50033$: 

Sie 3; MAKE SURE PREVIOUS MSG IS DONE 

219 005002 IF CURCNT(R2) GT #0 THEN 

(6) 005002 005762 002716 TST CURCNT(R2) 

(10) 005006 003452 BLE 50035$ 

220 005010 IF #ACTIVE NOTSETIN STATUS(R2) THEN 

(6) 005010 032762 020000 002456 BIT #ACTIVE,STATUS(R2) 

£19) 005016 001004 BNE 50036$ 

$58 3; OUTPUT WAS QUEVED BUT 1/0 DRIVER WAS NEVER INVOKED (VIA INTERRUPT) 
224 005020 LET ERRCOD := #NOINTIR ; NO INTERRUPT 
(4) 005020 012737 000003 002302 MOV #NOINTR,ERRCOD 

225 005026 

(4) 005026 000442 GR 50037$ 

(3) 005030 50036$: 

226 005030 WHILE MACTIVE SETIN STATUS(R2) DO 

(4) 0065030 50040$: 

(6) 005030 032762 020000 002456 BIT #ACTIVE,STATUS(R2) 

(10) 005036 001436 BEQ 50041$ > 
227 005040 LET DELCNT(R2) := #100. : 220 SEC 
(4) 005040 012762 000144 003016 MOV #100. ,DELCNT(R2) 

228 005046 DELAY 2. : 200MS LOOPS 

3} 005046 012727 000002 MOV #2.,(PC)+ 

(2) 005052 000000 . WORD 

(2) 005054 013727 002116 MOV LSOLY,(PC)+ 

(2) 005060 000000 -WORD 0 

(2) 005062 005367 177772 DEC =6(PC) 

(2) 005066 001375 BNE 74 

(2) 005070 005367 177756 DEC =22(PC) 

(2) 005074 001367 BNE -720 

229 005076 LET DELCNT(R2) := DELCNT(R2) = #1 
(7) 005076 005362 003016 DEC DELCNT(R2) 

230 005102 IF CELCNT(R2) EQ #0 THEN 

(6) 005102 005762 003016 TST DELCNT(R2) 

(10) 005106 001011 BNE 500428 
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1231 005110 LET ERRCOD := #TIMOUT 
(4) 005110 012737 000002 002302 MOV #TIMOUT ,ERRCOD 

1232 005116 LET STATUS(R2) := STATUS(R2) CLR.BY #ACTIVE 
(7) 005116 042762 020000 002456 BIC #ACTIVE ,STATUS(R2) 

1233 005124 LET STATUS(R2) := STATUS(R2) SET.BY #ERROR 
(7) 005124 052762 100000 002456 BIS #ERROR, STATUS(R2) 

1234 005132 ENDIF 
(4) 005132 50042$: 

1235 005132 ENDDO 
(4) O01 8¢ 000736 BR 50040$ 
(3) 005134 500418: 

1236 ERE ENDIF 
(4) 005134 50037$: 

1237 005134 ENDIF 
(4) 005134 50035$: 

1238 005134 ENDIF 
(4) 005134 50034$: 

1239 005134 IF ERRCOD NE #0 THEN 
(6) 005134 005737 002302 TST ERRCOD 

140° 005140 001403 BEQ 50043$ 

ise) ; REPORT THE ERROR 

1243 005142 004777 175710 JSR PC ,@ERRSVC 

1244 005146 ELSE 
(4) 005146 000425 BR 50044$ 

1528 005150 50043$: 

1246 ; Q@ UP THE MESSAGE AND ENABLE INTERRUPTS 

ieee ; THE 1/0 DRIVER WILL PICK UP FROM HERE. 

1249 005150 LET CURADD(R2) := BUFADD ; BYTE ADDRESS 
(4) 005150 013762 002314 002516 MOV BUF ADD ,CURADD (R2) 

1250 005156 LET MSGADR(R2) := BUFADD ; MESSAGE ADDRESS 
(4) 005156 013762 002314 002656 MOV BUF ADD ,MSGADR(R2) 

1251 005164 CURCNT(R2) := BUFCNT ; OUTPUT COUNT 
(4) 005164 013762 002316 002716 MOV BUF CNT ,CURCNT (R2) 

1252 005172 LET MSGCNT(R2) := BUFCNT ; BYTE COUNT 
(4) 005172 013762 002316 002556 MOV BUF CNT ,MSGCNT(R2) 

1253 005200 LET REPCNT(R2) := BUFREP ; PRINT COUNT 
(4) 005200 0135762 0023520 002616 MOV BUF REP ,REPCNT(R2) 

1254 005206 F CURCNT(R2) GT #0 THEN 
(6) 005206 005762 002716 TST CURCNT(R2) 
(10) 905212 003403 BLE 50045$ 

1255 005214 LET @LPCSR(R2) := #100 ; ENABLE INTERRUPTS 
(4) $0255 012772 000100 002322 MOV #100, aLPCSR(R2) 

1256 005222 ENDIF 
(4) 005222 50045$: 

1257 005222 ENDIF 
(4) 005222 50044$: 

1258 005222 ENDIF 

1959 005222 50032$: 

ison 3; CLEAR OUT ANY TIMEOUT COUNT 

1262 005222 LET DELCNT(R2) := #0 
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seh 005222 005062 003016 CLR DELCNT(R2) 
1See : SELECT THE NEXT UNIT AND DECRIMENT THE LINECOUNT 
1266 0058 6 LET R3 := R3 = #1 
(7) 005226 005303 DEC 
1267 005230 LET L$LUN := LSLUN + #1 
(7) 005230 005237 002074 INC L$LUN 
1268 O826 28 000137 004722 JMP CTLLOP 
1269 005240 CTLEND: 
1270 005240 POP R3,R2 
te tt v8 012603 MOV (SP)+,R3 
(3) 005242 012602 MOV (SP)+,R2 
1271 005244 000207 RTS PC 
1272 
1273 peers 
iste : SUBROUTINE QUIET 
1276 : THIS SUBROUTINE WILL EFFECTIVLY DELAY UNTIL ALL QUEUED OUTPUT 
1277 : IS FINISHED. THE DELAY IS ACCOMPLISHED BY QUEUEING A NULL 
1278 3 MESSAGE TO ALL LINES. 
ic poocee 
1281 005246 QUIET: OUTPUT #0,#0 : NULL MESSAGE OUTPUT 
1282 005310 000240 NOP 
\se7 005312 000207 RTS PC 
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1286 gS SS SSSSSSSSSSSSSSSSSSN SSS SSS SSS SH SSsssssssssssssssssssssssssssec=s=2 
1287 3 DROPIT FUNCTIONAL DESCRIPTION : 
1289 ; THIS SUBROUTINE I$ USED TO DROP A BAD PRINTER FROM THE TEST 
1290 ; DISABLE ANY INTERRUPTS FROM THE PRINTER, AND NOTIFY THE 
1390 : OPERATOR THAT THE PRINTER WAS DROPPED. 
129 ; 
1294 005314 DROPIT: LET STATUS(R2) := STATUS(R2) SET.BY #DROPED 
(7) 005314 052762 040000 002456 BIS #DROPED, STATUS (R2) 
1295 005322 LET CURCNT(R2) := #1 
(4) 0053 2 012762 177777 002716 MOV #-1, CURCNT (R2) 
1296 005330 LET @LPCSRiR2) := #0 
(4) 005330 005072 002322 CLR @LPCSR(R2) 
1297 005334 PRINTF #LPDROP, L$LUN 
(8) 005334 013746 002074 MOV LSLUN,<(SP) 
(7) 005340 012746 004002 MOV #LPDROP,-(SP) 
(6) 005344 012746 000002 MOV #2,-(SP) 
(3) 005350 010600 MOV SP,RO 
(4) 005352 104417 TRAP CSPNTF 
(4) 005354 062706 000006 ADD #6,SP 
1298 005360 LET ERRTBL(R2) := #0 
(4) 005360 005062 003060 CLR ERRTBL(R2) 
1299 005364 LET UUT := UUT = #1 
(7) 005364 005337 002306 DEC UUT 
1300 005370 IF UUT EQ #0 THEN 
(6) 005370 005737 002306 TST uuT 
(10) 005374 001011 BNE 5004 
1301 005376 PRINTF #UUTEQO 
(7) 005376 012746 003732 MOV #UUTEQ0,-(SP) 
(6) 005402 012746 000001 MOV #1,-(SP) 
(3) 005406 010600 MO R 
(4) 005410 104417 TRAP CSPNTF 
(4) 005412 062706 000004 ADD #4,SP 
1302 005416 DOCLN ; NOTHING TO TEST 
(3) 005416 104444 TRAP CSDCLN 
1303 005420 NDIF 
(4) 005420 50046$: 
1304 005420 000207 RTS PC 
1305 
1306 
1307 
1308 g TTS SS SSS SSS SSSSSSSSSSSSSSSSS SSS SSS SSS SSSSSS SSS SHS SSS SSS SST TS SSSSSE 
1309 + FAKE FUNCTIONAL DESCRIPTION: 
1311 ; THIS SUBROUTINE IS REQUIRED TO INSURE PROPER PASS COUNT REPORTS 
1312 : IN A MULTI UNIT MODE OF OPERATION, 
1314 
1315 005422 FAKE: LET LSLUN := #0 
(4) 005422 005037 002074 CLR LSLUN 
1316 005426 WHILE L$LUN LT LSUNIT DO 
(4) 005426 50047$: 
(6) 005426 023737 002074 002012 CMP L$LUN,LSUNIT 
(10) 005434 002007 BGE 
1317 005436 GPHARD L$LUN, R3 


CZLNAAO Ler tes! 
CZLNAA.P11 = 
(3) 005436 013700 
(3) 005442 ayoces 
(3) 005444 01000 
1318 005446 
(7) 005446 005237 
1319 005452 
(4) 005452 000765 
(3) 005454 
1320 005454 000207 
1321 
1322 
1323 005456 
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002074 


002074 


8 
50050$: 
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ENDMOD 


N 3 
; 08:16 PAGE 17-1 


SEQ 0039 
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INITIALIZATION SECTION 


»SBTTL INITIALIZATION SECTION 


sTHE INITIALIZE ROUTINE IS EXECUTED AT THE BEGINN 
sPRIMARILY USED FOR REQUESTING P-TABLE PARAMETERS 
THE OPERATOR INCLUDE THE NUMBER OF UNITS UNDER T 
sAND CLOCK TYPE. 


ING OF EACH SUB-PASS AND IS 
. INFORMATION REQUESTED FROM 
EST, DEVICE ADDRESSES, VECTORS, 


LSINIT:: 

sRESET EXTERNAL BUS IF START EVENT FLAG IS SET 

s0R POWER FAIL RESTART 
READEF #EF.START sTEST START EF INDICATOR 
MOV #EF .START,RO 
TRAP CSREFG 


+S tated ig sBRANCH IF FROM START UP 
READEF #EF .RESTART sNOW THE RESTARTFLAG 
MOV WEF .RESTART,RO 
TRAP CSREFG 
ewes sIF ELTHER START OR POWER FAIL RESTART 
:D0 A BUS RESET 
JSR PC, FAKE 3; UPDATE PASS COUNT 
SETPRi #PRIOO ; PRIORITY ZERO 
MOV #PRIOO,RO 
TRAP CSSPRI 
LET OUTBUF :B= #14 
003124 MOVB #14, QUTBUF 
OUTPUT #OUTBUF , #1 
DECR WORK] FROM #6 TO #1 BY #1 
003122 MOV #6, WORK1 
BR 50651$ 
$0052$: 
DEC WORK1 
50051$: 
000001 CMP WORK1,#1 
BLT 50053$ 
DELAY 250 
MOV #250, (PC)+ 
.WORD 0 
MOV LSDLY,(PC)+ 
WORD 
DEC -6(PC) 
BNE - 
DEC =22(PC) 
BNE - 
ENDDEC 
BR 50052$ 
50053$: 
EX : ELSE EXIT INIT CODE 


IT INIT 
TRAP CSEXIT 
WORD 110004-. 


[POWER UP RESTART OR START COMMAND ISSUED 
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005642 1$: BRESET sRESET THE BUS 
005642 104433 TRAP  CS$RESET 

005644 IF LSUNIT GT #16. THEN 

005644 023727 002012 000020 CMP SUNIT, #16. 

005652 003420 BLE 

005654 PRINTF #NRGT16 

605654 012746 006506 MOV #NRGT16,-(SP) 

005660 012746 000001 MOV 1,=(SP) 

005664 010600 MOV 0 

005666 104417 TRAP CSPNTF 
005670 062706 000004 ADD 4,SP 
005674 PRINTF #NRGT17 
005674 012746 006571 MOV #NRGT17,-(SP) 

005700 012746 000001 MOV #1,-(SP5 
005704 010600 MO P 

05706 104417 TRAP — CSPNTF 

005710 062706 000004 ADD #4,SP 
005714 ENDIF 
005714 500548: 
005714 MANUAL : CHECK FOR UNATTENDED MODE 
005714 104450 TRAP —— C$MANI 
005716 BNCOMPLE TE 2$ ; IF UNATTENDED BYPASS MANUAL INSTRUCTIONS 
005716 103024 BCC 2$ 
005720 PRINTF #RESET1 
005720 612746 006701 MOV #RESET1,-(SP) 
005724 012746 000001 MOV #1,-(SP) 
005730 010600 MOV SP_R 
005732 104417 TRAP = CSPNTF 
005734 062706 000004 ADD #4 ,SP 

[WAIT FOR A “'CR' BEFORE GOING ON 

005740 LET FLAG := #0 
005740 005037 002240 CLR FLAG 
005744 LET ERRCOD := #0 
005744 005037 002302 CLR ERRCOD 
005750 LET UUT := #0 
005750 005037 002306 LR uuT 
005754 1008: 
005754 GMANIL READY,FLAG, 100000, YES 
005754 104443 TRAP  —- C$GMAN 
035756 000404 BR 100008 
905760 002240 .WORD FLAG 
005762 000130 "WORD TSCODE 
005764 006752 "WORD READY 
005766 100000 "WORD 100000 

005770 100008: 

SREQUEST P=TABLE FOR PRINTERS UNDER TEST 

005770 2$: LET R1 := LSUNIT - #1 :MAXIMUM NUMBER OF UNITS 
005770 013701 002012 MOV LSUNIT,R1 


005774 005301 DEC R 
005776 INCR L$LUN FROM #0 TO RI BY #1 
005776 005037 002074 CLR L$LUN 
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50056$: 
50055$: 
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ON SECTION 


BR 50055$ 
INC LSLUN 
CMP SLUN,R1 
BGT 5 oe 
GPHARD L$LUN,R3 
MOV L$LUN,RO 
TRAP C$GPHRD 
MOV RO,R3 
BNCOMPLETE 38 
BCC 
LET SLUN SHIFT 1 


tt 
ZATIO 


Fa * ee tet zr 
MMM Zz rororgys 


LET REP : 
REPENT (RSD 


LOAD CSR ADDRESS INTO TABLE 


SET UP 


SET UP 


LET LPCSR(R2) . (R3)¢ 
PBUF(R2) := 
Nea UP LPBUF ( 
#2, LPBUF (R2) 


REQUEST P-TABLE ADDRESS 


BRANCH IF DEVICE NOF PRESENT 


:SET UP CSR ADDRESS FOR DEVICE 


2) 
93 oh eal + #2 


VECTOR ADDRESS INTO GIVEN TABLE 


LET LPVEC(R2) := (R3)+ 


MOV (R3)+,LPVEC(R2) 


DEVICE INTERRUPT VECTOR INFORMATION 


LET WORK := R2 SHIFT 3 
V WORK 


(R2):= WORK 
x WORK,LP iNTRORD? 
SETVEC LPVECIR2), gbPINTR«R2), 


#PRIO4 


SEQ 0042 
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1398 : ADD ONE TO UNIT UNDER TEST COUNT 
1400 006166 LET UUT := UUT + #1 
(7) 006166 005237 002306 INC yuT 
1401 006172 000403 
1498 ‘INDICATE LSLUN NOT AVAILABLE FOR TESTING 
1405 006174 $s: LET STATUS(R2) := STATUS(R2) SET.BY #DROPED 
(7) 006174 052762 040000 002456 BIS #DROPED STATUS ‘R2) 
1406 006202 43: ENDINC :GO BACK AND DO IT AGAIN 
(5) 006202 000700 BR 50056$ 
(4) 006204 50057$: 
1407 PEPE ETUL TERETE 
1408 > SETUP’ TO HANDLE CLOCK’ INTERRUP 
1409 : IF AN L=CLOCK IS ON THE SYSTEM THEN SETUP A NOOP INTERRUPT 
1410 : HANDLER BECAUSE LSI SYSTEMS MAY HAVE THE CLOCK ENABLED AT ALL TIMES. 
1411 006204 LET CLKTYP := #1 : DEFAULT FOR NO CLOCK ON SYSTEM 
(4) 006204 012737 000001 002266 MOV #1, CLKTYP 
1412 006212 CLOCK LRG : TEST FOR L=CLOCK 
(3) 006212 012700 000114 MOV #*L,RO 
(3) 006216 104462 TRAP =—s- C$CLCK 
(3) 006220 010004 MOV RO,RS 
1413 006222 IFCOND CS THEN ; WE HAVE AN L=CLOCK 
(7) 006222 103031 BCC 0060$ 
1414 006224 LET CLKTYP := #2 
(4) 006224 012737 000002 002266 MOV #2,CLKTYP 
1415 006232 LET CLOCKP := RG 
(4) 006232 010437 002270 MOV R4,CLOCKP 
1416 006236 LET CLKCSR := @CLOCKP 
(4) 006236 017737 174026 002272 MOV @CLOCKP,CLKCSR 
1417 006244 LET @CLKCSR := #00 ; TRY TO DISABLE INTERRUPTS 
(4) 006244 012777 000000 174020 MOV #00, aCLKCSR 
1418 : SETUP THE NOOP HANDLER 
1419 006252 LET CLKVEC := 4(R4) 
(4) 006252 016437 000004 002276 MOV 4(R4) ,CLKVEC 
1420 006260 SETVEC CLKVEC,MIGNORE ,#PRI06 
(7) 006260 012746 000300 MOV #PR106,-(SP) 
(6) 006264 012746 007146 MOV # IGNORE ,-(SP) 
(5) 006270 013746 002276 MOV CLKVEC,-(SP) 
(4) 006274 012746 000003 MOV #3,-(SP) 
(3) 006300 104437 TRAP = C$SVEC 
(2) 096302 062706 000010 A #10,SP 
1421 606306 ENDIF 
(4) 006306 : 
1422 > IF A P=CLOCK IS ON THE SYSTEM UPGRADE CLOCK TYPE TO 3 
1423 006306 K1: LOCK PR 
(3) 006306 012700 000120 MOV #*PRO 
(3) 006312 104462 TRAP = C$CLCK 
(3) 006314 010004 V 
1424 006316 IFCOND CS THEN : WE HAVE A P=CLOCK 
(7) 006316 103016 BCC 50061$ 
1425 006320 LET CLKTYP := #3 
(4) 006320 012737 000003 002266 MOV #3, CLKTYP 
1426 006326 LET CLOCKP := R4 
(4) 006326 010637 002270 MOV R4,CLOCKP 
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1427 00633 LET CLKCSR := @CLOCKP 
(4) 006332 017737 173732 002272 MOV ACLOCKP,CLKCSR 
1428 006340 LET CLKVEC := 4(R4) 
(4) 006340 016437 000004 002276 MOV 4(R4) ,CLKVEC 
1429 3 TRY TO DISABLE THE P-CLOCK 
1430 006346 LET A@CLKCSR := #00 
(4) 006346 012777 000000 173716 MOV #00,aCLKCSR 
1431 006354 ENDIF 
(4) 006354 50061$: 
1432 : IF NO CLOCKS ON THE SYSTEM NOTIFY THE OPERATOR 
1433 006354 IF CLKTYP EQ #1 THEN 
(6) 006354 023727 002266 000001 CMP KTYP,#1 
(10) 006362 001920 BNE 062$ 
1434 006364 PRINTF #NOCLCK 
(7) 006364 012746 007007 MOV #NOCLCK,-(SP) 
(6) 006370 012746 000001 MOV #1,-(SP) 
(3) 006374 010600 MOV SP,R 
(4) 006376 104417 TRAP CSPNTF 
(4) 006400 062706 000004 ADD #4,SP 
1435 006404 PRINTF @#NOTIM 
(7) 006404 012746 007051 MOV #NOTIM,=(SP) 
(6) 006410 012746 000601 MOV #1,-(SP) 
(3) 006414 010600 MOV 
(4) 006416 104417 TRAP CSPNTF 
(4) 006420 062706 000004 ADD #4,SP 
1436 006424 ENDIF 
(4) 006424 50062$: 
1437 006424 SETPRI #PRIOO 
(3) 006424 012700 000000 MOV #PRI00,RO 
(3) 006430 104441 TRAP C$SPRI 
1438 006432 LET OUTBUF :B= #14 
(4) 006432 112737 000014 003124 MOVB #14, OUTBUF 
1439 006440 OUTPUT #OUTBUF #1 
1440 006502 EXIT INIT 
(3) 006502 104432 TRAP CSEXIT 
(3) 006504 000440 ~ WORD L10004-. 
re -NLIST BEX 
1443 006506 047045 040445 052516 WNRGT16: .ASCIZ /%NZANUMBER OF LINE PRINTERS UNDER TEST EXCEEDS 16./ 
1444 006571 045 022516 047501 NRGT17: .ASCIZ /2ZNZAONLY 16 WILL BE TESTED./ 
1445 006625 045 022516 051101 MRESET: .ASCIZ /%ZNZARESET PRINTER(S), AND PLACE ON LINE.2N/ 
1466 006701 045 022516 051101 RESET1: .ASCIZ /2NZARESET PRINTER(S) AND PLACE ON LINE2N/ 
1448 906752 042504 051120 051505 READY: .ASCIZ /DEPRESS ‘’RETURN'’ WHEN READY./ 
1449 007007 045 022516 044101 NOCLCK: .ASCIZ /2NZAHARDWARE CLOCK NOT AVAILABLE./ 
14650 007051 045 022516 040501 NOTIN: .ASCIZ /%ZNZAAUTO PRINTING SPEED MEASUREMENT CANNOT BE PERFORMED. / 
EV 
pe 007142 000000 PLOC: ~ WORD 0 
1454 LIST BEX 
1455 007144 ENDINIT 
(3) 007144 L10004: 
(3) 007144 104411 TRAP CSINIT 
1289 
1458 s’TGNORE’ AN INTERRUPT CATCHER’ FOR’ THE LC =CLOCK 
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: THAT IGNORES THE INTERRUPT. 
; : USED FOR SYSTEMS WHERE CLOCK CANNOT BE TURNED OFF. 
IGNORE : 3; NOOP 
RT] 
3 RESVEC FUNCTIGNAL DESCRIPTION 
: mats SUBROUTINE WILL SETUP ALL UNITS VECTOR AREAS 
: O THE "NORMAL * INTERRUPT ROUTINES STARTING AT INTOO. 
RESVEC:: PUSH R3,R4 
MOV R3,-(SP) 
MOV R4,-(SP) 
LET R4 := #0 
CLR RG 
LET R3 := LSUNIT 
MOV LSUNIT,R 
WHILE R3 GT #0 DO 
50063$: 
TST R3 
BLE 50064$ 
SET VE ¢ pf Pvectnes, LPINTR(R4), #PRIOG 
MOV #PRI04,-(SP) 
MOV CPINTRERG), (SP) 
MOV LPVEC(R4), =(SP) 
MOV #3,-(SP) 
TRAP CSSVEC 
ADD #10,SP 
LET RG := RG + M2 
ADD 2,R4 
LET R3 := R3 = wi 
DEC 
ENDDO 
BR 50063$ 
50064$: 
POP R4,R3 
MOV (SP)+,R4 
MOV (SP)¢,R 
RTS 
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1488 .SBTTL CLEANUP CODING SECTION 
1489 007232 STARS 
(2) soe eeeaeereaareererenst ‘eee eeeeeeeeenkeaeekaeaaeaenketeanaeateekeneeeneneeeeee 
1490 3+ 
1491 [THE PURPOSE OF THE CLEANUP SECTION IS TO CLEANUP ALL PRINTERS UNDER TEST 
1492 SAND RETEST ANY UNITS WHICH HAVE BEEN DROPPED FROM TESTING TO INSURE THAT 
1493 STHEY HAVE NOT COME BACK ON LINE. IF THE DEVICE HAS COME BACK ON LINE 
1494 [TESTING WILL BE RESTARTED ON THE DEVICE. THIS INSURES THAT 
1495 3 HE EVENT A PAPER OuT my cynee? AND THE TOPERATON HAS seul ADDITIONAL PAPER 
1496 ZINTO THE UNIT UNDER TEST, THE INITIALIZATION SEQUENCE D oes NOT 
1497 SHAVE TO BE DONE AGAIN IN ORDER TO GET THE DEVICE ACTIVE 
1499 07232 eTARS 
(2) 5 seeker eketaerereeeeererereetenetetenananeaaeenetereneeneneeneneee 
1500 007232 BGNCLN 
(3) 007232 LS$CLEAN:: 
1501 007232 SETPRI #PR10? 
(3) 007232 012700 000340 MOV R107,R0 
(3) 007236 104441 TRAP CSeeRI 
1502 007240 BRESET 
62d 007240 104433 TRAP CSRESET 
1504 007242 CLEAN: LET RI s= LOUNIT = #1 sNUMRER OF UNITS=1 
(5) 007242 013701 002012 MOV LSUNIT,R1 
(7) 007246 005301 DEC RI 
1505 007250 INCR LSLUN — #0 TO R1 BY #1 
(5) 007250 005037 002074 CLR L$LUN 
(7) 007254 000402 BR 50065$ 
(6) 007256 50066$: 
(10) 007256 005237 002074 INC L$LUN 
(7) 007262 50065$: 
(7) 007262 023701 002074 CMP LSLUN,R1 
(9) 007266 003020 BGT 50067$ 
1506 ; DISABLE ALL INTERRUPTS, SELECT ALL LINES 
1507 ; ZERO ALL ERROR COUNTS 
1508 007270 LET R2 := L$LUN SHIFT 1 
(5) 007270 013702 002074 MOV LSLUN,R2 
(B) 007274 006302 ASL R2 
1509 : CLEAR ALL BITS IN STATUS EXCEPT DEVICE TYPE 
1510 007276 LET STATUS(R2) := STATUS(R2) CLR.BY #ERROR'DROPED' ACTIVE ‘LOBYTE 
(7) 007276 042762 160377 002456 BIC WERROR'DROPED! ACTIVE 'LOBYTE, STATUS(R2) 
1511 007304 LET CURCNT(R2) := #1 
(4) 097304 012762 177777 002716 MOV #1, CURCNT(R2) 
1512 907312 LET ERRIBL (RZ) := #0 
(4) 007312 005062 003060 CLR ERRTBL (R2) 
1513 007316 LET DELCNT(R2) := #0 
(4) 007316 005062 003016 CLR DELCNT(R2) 
1514 007322 LET REPCNT(R2) := #0 
(4) 007322 005062 002616 CLR REPCNT(R2) 
1515 007326 END INC 
(5) 007326 000753 BR 50066$ 
(4) 007330 500678: 
1516 007330 004737 007150 : RESET THE VECTORS 
1517 007334 rt SCLETYP “ea. a fue 
(6) 007334 023727 002266 000003 CMP CLKTYP, #3 
(10) 007342 001006 BNE 500708" 
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1518 007344 
(3) 007344 017700 
(3) 007350 104436 
1519 00735 
(4) 007352 012777 
1520 007360 
(4) 007360 
1521 007360 
(6) 007360 023727 
(10) 007366 001013 
1522 007370 
(7) 007370 0732746 
(6) 007574 012746 
(S$) 007400 013746 
(4) 007404 012746 
(3) 007410 104437 
(2) 007412 062706 
1523 007416 
(4) 007416 
1524 007416 
(3) 007416 012700 
(3) 007422 104441 
1525 007424 
(3) 007424 
(3) 007424 104412 
1526 
1527 007426 
1528 
1529 
1530 007426 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 007426 
(3) 007426 
1542 097426 
(5) poregs 013701 
(7) 007432 005301 
1543 
1544 
1545 
1546 
1547 007434 005037 
1548 007440 000402 
1549 007442 
1550 007442 005237 
1551 007446 
1552 007446 023701 
1553 007452 003402 
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C x24. veils” 
P CODING SECTION 
CLAVEC aCLKVEC 
MOV ACLKVEC,RO 
TRAP cSCvEC 
LET @CLKCSR := #00 
172712 MOV ao. ACLKCSR 
ENDIF 
50070$: 
IF ack TP EQ #2 THEN 
000002 CMP CLKTYP, #2 
BNE 50071$ 
SETVEC CLKVEC, @IGNORE ,#PRI06 
MOV #PR106,-(SP) 
MOV #IGNORE ,-(SP) 
MOV CLKVEC .=(SP) 
MOV #3,-(SP) 
TRAP C$SVEC 
ADD #10,SP 
ENDIF 
50071$: 
SETPRI #PRIOO 
MOV #PRIO0,RO 
TRAP C$SPRI 
ENDCLN 
L10005: 
TRAP  CSCLEAN 
ENDMCD 
.SBTTL INTERFACE LOGIC 
BGNMOD 
so@ 
[THIS TEST VERIFIES THE OPERATION oF THE INTERFACE LOGIC. TESTS ARE 
[PERFORMED FOR PRINTER ERROR, PRINTER READY, AND CLEARING PRINTER READY 
[BY LOADING A CHARACTER INTO THE OUTPUT BUFFER. ALSO IT IS VERIFIED 
‘THAT THE PRINTER WILL NOT INTERRUPT IF IT IS AT THE SAME PRIORITY LEVEL 
[AS THE PROCESSOR, BUT WILL INTERRUPT IF THE PROCESSOR 1S AT A LOWER 


SPRIORITY LEVEL. THE PRINTER IS AT PRIORITY LEVEL 4. 


7MAX NUMBER OF UNITS ON SYSTEM 


LS$UNIT - 
‘MOV 4 LSuNIT, R1 


SHARD CODED INCREMEMNT LOOP 


“NCR LUNIT FROM #0 TO R1 BY #1 :START LOOP 
. CLR LUNIT SUNIT TO 0 
fad BR TIC D0 COMPARE 
ee INC LUNIT SUPDATE UNIT NUMBER 


CMP LUNIT,R1 7D0 COMPARISON OF UNIT NUMBER 
BLE 1$ ZONTO NEXT UNIT 


SEQ 0047 
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INTERFACE LOGIC os : 


sExXIT LOOP 


IF @ 


STAT 
E 


c-~ 


. SAY SO 


WORD CSRERR 
WORD 0 


LET @LPCSR(R2) := #0 
CLR @LPCSR(R2) 
ENDIF 


3 TIME DELAY 
IF NOT READY ALLOW 3 SECON NDS 10 COME UP 


it welt? NOTSETIN @LPCSR(R2) T 


#BIT7, ALPCSR(R2) 
BNE 50073$ 
DECR yet FROM #12. TO #1 BY #1 
MOV #12.,WORK1 
BR 
50075$: 
DEC WORK1 
50074$: 
CMP WORK1,#1 
BLT 50076$ 
DELAY 250 
MOV #250,(PC)+ 
.WORD 0 
MOV LSDLY,(PC)+ 
WORD 
DEC -6(PC) 
BNE .- 
DEC =22(PC) 
BNE .-20 
ENDDEC 
BR 50075$ 
50076$: 
ENDIF 
50073$: 


?NOW TEST FOR PRINTER READY 
IF #31107 NOTSE TEN @LPCSR(R2) THEN 


TEST FOR THE READY BIT 
1107, aLPCSR(R2) tes ' 
BNE 50077$ 


SEQ 0048 
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K_ 4 
DN K24.07-563 12-JAN-83 08:16 PAGE 19-3 SEQ 0049 
CZLNAA.P11 12-JAN-83 08: I OGIC 


NTERFACE L 


1575 007630 LET STATUS(R2) := STATUS(R2) SET.BY #ERROR 
(7) 007630 052762 100000 002456 BIS #ERROR, STATUS (R2) 
1576 007636 LET L$LUN := LUNIT 
(4) 007636 013737 002260 002074 MOV LUNIT,L$LUN 
1577 007644 LET ERRTBL(R2S := ERRTBL(R2) + #1 
(7) 007644 005262 003060 INC RRTBL(R2) 
1578 007650 ERRHRD 2,RDYERR sREPORT AN ERROR 
(4) 007650 104456 TRAP CSERHRD 
(5) 007652 000002 WORD 
(5) 007654 003370 “WORD RDYERR 
(5) 007656 000000 “WORD 0 
1579 007660 ENDIF 
mt) 007660 50077$: 
1581 S INSURE LOADING CHARACTER CAUSES PRINTER READY TO GO AWAY 
1288 007660 LET @LPBUF(R2) := #12 
(4) 007660 012772 000012 002416 MOV #12, aLPBUF (R2) 
1584 007666 IF #BITO7 SETIN @LPCSR(R2) THEN 
(6) 007666 032772 000200 002322 BIT #B1T07,aLPCSR(R2) 
(10) 007674 001416 BEQ 501008 
1585 007676 LET STATUS(R2) := STATUS(R2) SET.BY #ERROR 
(7) 007676 052762 100000 002456 BIS #ERROR,STATUS(R2) 
1586 007704 LET ERRTBL(R2) := ERRTBL(R2) + #1 
(7) 007704 005262 003060 INC ERRTBL(R2) 
1587 007710 LET LSLUN := LUNIT 
(4) 007710 013737 002260 002074 MOV LUNIT, LSLUN 
1588 007716 ERRHRD 3,ERR11 ;REPORT AN ERROR 
(4) 007716 104456 TRAP CBERHRD 
(5) 007729 000003 .WORD 3 
(5) 007722 010504 “WORD ERR11 
(5) 007724 000000 ow 
1589 007726 LET aLPCSR(R2) := #0 
(4) 007726 005072 002322 CLR ALPCSR(R2) 
1590 007732 ENDIF 
ao 007732 501008: 
1592 sVERIFY THAT THE PRINTER WILL NOT INTERRUPT iF IT IS AT A PRIORITY LEVEL 
1393 [THE SAME AS THE CPU 
1595 007732 SETPRI #PRIO4 sCPU TO PRIORITY 4 
(3) 007732 012700 000200 MOV #PRI04,RO 
(3) 097736 104441 TRAP C$SPRI 
1596 907740 SETVEC LPVEC(R2) ,#@INTERR, #PRI04 sLP VECTOR SET UP 
(7) 007740 012746 000200 MOV PRIO4,-(SP) 
(6) 007744 012746 010366 MOV #INTERR,-(SP) 
(5) 007750 016246 002362 MOV LPVEC (RO) ,=(SP) 
(4) 007754 012746 000003 MOV #3,-(SP) 
2 HBIHEE B85586 ooo. a 
( ° 
1597 007766 LET @LPCSR(R2) := @LPCSR(R2) SET.BY #100  ;INTERRUPT ENABLE 
(7) 007766 052772 000100 002322 BIS #100, aLPCSR(R2) 
1598 007774 DECR WORK? FROM #12 TO #1 BY #1 
(5) 0C7774 012737 000012 003122 MOV #12,WORK1 
(7) 010002 000402 BR 50161$ 
(6) 010004 50102$: 
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(19) 010004 005337 003122 DEC WORK1 
(7) 010010 501018: 
(7) 010010 023727 003122 000001 CMP WORK1,#1 
(9) 010016 002415 BLT 50103$ 
1599 010020 DELAY 250, : ALLOW 3 SEC FOR DELAY 
(2) 010020 012727 000372 MOV #250.,(PC)+ 
(2) 010024 000000 WORD 
(2) 910086 013727 002116 MOV LSDLY, (PC) 
(2) 010032 000000 WORD 
(2) 010034 005367 177772 DEC -6(PC) 
(2) 010040 001375 BNE - 
(2) 010042 005367 177756 DEC =22(PC) 
(2) 010046 001367 BNE .-20 
1600 010050 ENDDEC 
(5) 910050 000755 BR 50102$ 
mt 010052 50103$: 
1602 sNOW TEST THAT THE PRINTER WILL INTERRUPT IF THE CPU PRIORITY IS LOWER THAN 
1227 s THE PRINTER PRIORITY 
1605 010052 LET @LPCSR(R2) := ALPCSR(R2) CLR.BY #100 ;CLEAR INTERRUPT ENABLE 
(7) 010052 042772 000100 002322 BIC #100, aLPCSR(R2) 
1606 010060 SETPRI #PRIO3 :CPuU TO PRIGRITY 3 
(3) 010060 012700 000140 MOV #PRIO3,RO 
(3) 010064 104441 TRAP CSSPR 
1607 010066 SETVEC LPVEC(R2) ,#INTHDL ,#PRIO4 
(7) 010066 012746 000200 MOV #PRIO4,-(SP) 
(6) 010072 012746 010416 MOV #INTHDL ,-(SP) 
(5) 010076 016246 002362 MOV LPVEC(R2),-(SP) 
(4) 010102 012746 000003 MOV #3,-(SP) 
(3) 010106 104437 TRAP C$SVEC 
(2) 010110 062706 000010 ADD #10,SP 
1608 010114 LET @LPCSR(R2) := ALPCSR(R2) SET.BY #100 ; INTERRUPT ENABLE 
(7) 010114 052772 000100 002322 BIS #100, aLPCSR(R2> 
1609 010122 DELAY 3 > ALLOW 3 SEC DELAY 
(2) 010122 012727 000030 MOV #30, (PC)+ 
(2) 010126 000000 WORD 
(2) 010130 013727 002116 MOV LSDLY, (PC)+ 
(2) 010134 000000 WORD 
(2) 010136 005367 177772 DEC -6(PC) 
(2) 010142 001375 BNE - 
(2) 010144 005367 177756 DEC =22(PC) 
(2) 010150 001367 BNE .-20 
1610 910152 LET ERRTSL(R2) := ERRTBL(R2) + #1 
(7) 010152 005262 003060 INC ERRTBL (R2) 
1611 010156 LET LSLUN := LUNIT 
(4) 010156 013737 002260 002074 MOV LUNIT, i $LUN 
1612 010164 ERRHRD 4,ERR1 
(4) 010164 104456 TRAP CSERHRD 
(5) 010166 000004 .WORD 4 
(5) 010170 010643 ~ WORD ERR13 
(5) 010172 000000 a 
1613 010174 END2: LET a@LPCSR(R2) := #0o : CLEAR THE LPCSR 
(4) 010174 012772 000000 002322 OV #00, aLPCSR(R2) 
1614 010202 LET STATUS (R2) := STATUS(R2) CLR.BY #ERROR DROPED!ACTIVE 
(7) 010202 042762 160000 002456 BIC #ERROR!DROPED ‘ACTIVE. STATUS (R2) 
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1615 010210 LET DELCNT(R2) := #0 
nO) 010210 005062 003016 CLR DELCNT(R2) 
1617 SEND OF HARD CODED INCREMENT LOOP 
1918 sENDINC 
1620 010214 000137 007442 JMP TIA sUPDATE UNIT # 
1621 010220 004737 007150 T1B: PC, RESVEC : RESET STANDARD VECTORS 
1622 010224 SETPRI #PRIOO 
(3) 0102¢4 012700 000000 #PRI00,RO 
(3) 010230 104441 TRAP _— C$SPRI 
1623 010232 OUTPUT #INTFAC, #47. 
1627 010274 LET OUTBUF :B= #14 
(4) 010274 112737 000014 003124 MOVB  #14,0UTBUF 
1628 010302 OUTPUT #OUTBUF ,#1 
1629 010344 004737 005246 JSR PC, QUIET 
1630 010350 WHILE #BIT? NOTSETIN @LPCSR(R2) DO sWAIT FOR READY 
(4) 010350 50104$: 
(6) 010350 032772 000200 002322 BIT #B1T7,aLPCSR(R2) 
(10) 0106356 001001 BNE 50105$ 
1631 010360 ENDDO 
(4) 010360 000773 BR 50104$ 
(3) 010362 50105$: 
1632 010362 EXIT TST sEXIT THE TEST 
(3) 010362 104432 TRAP = C$EXIT 
13 010364 000334 .WORD 110006-. 
1634 S INTERRUPT HANDLER TO SERVICE FAULTY INTERRUPT FROM LP INTERFACE. 
1635 [THIS ROUTINE IS ENTERED ONLY WHEN THE LP INTERRUPTS AT THE SAME LEVEL AS 
1636 :THE CPU AND 1S CONSIDERED AN ERROR. 
1638 010366 BGNSRV 
1639 010366 INTERR: LET ERRTHL(R2) := ERRTBL(R2) + #1 
(7) 010366 005262 003060 INC ERRTBL(R2) 
1640 010372 LET LS$LUN := LUNIT 
(4) 010372 013737 002260 002074 MOV LUNIT,L$LUN 
1641 010400 ERRHRD 5,ERR12 
(4) 010600 104456 TRAP — CSERHRD 
(5) 010402 000005 wo 
(5) 010404 010560 .WORD ERRI2 
(5) 010406 000000 “WORD 0 
1642 010410 LET (SP) := MEND2 
(4) 010410 012716 010174 MOV #END2, (SP) 
1643 910414 ENDSRV 
(3) 010414 110007: 
{2} 019414 000002 RTI 
1645 S INTERRUPT HANDLFR FOR EXPECTED INTERRUPT 
le47 010416 BGNSRV 
1649 010416 INTHDL: LET (SP) := #END2 
(4) 010416 012716 010174 MOV #END2, (SP) 
1650 010422 ENDSRV 
(3) 010422 110010: 
(2) 010422 000002 RT] 
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1651 : 
1626 eNLIST BEX 
169? 010424 047111 042524 043122 INTFAC: .ASCIZ /INTERFACE LOGIC TEST 1 <---= TEST COMPLETE/<12><12> 
1022 sERROR MESSAGES ASSOCIATED WITH THIS TEST 
1657 010504 047514 042101 047111 ERR11: .ASCIZ /LOADING PRINTER BUFFER DOES NOT CLEAR READY/ 
1658 010560 051120 047111 042524 ERR12: .ASCIZ /PRINTER INTERRUPTED AT SAME LEVEL AS THE PROCESSOR/ 
1659 010643 198 044522 052116 ERR13: .ASCIZ /PRINTER DID NOT INTERRUPT AT CPU PRIORITY 3/ 
1660 010720 EVEN 
1661 010720 ENDTST 

(3) 010720 L10006: 

(3) 010720 104401 TRAP CSETST 
eee LIST BEX 
1663 010722 ENDMOD 
1664 
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1666 .SBTTL DATA TRANSFER PATHS 
1668 010722 BGNMOD 
1670 {THIS TEST CHECKS THE DATA TRANSFER 
1671 [PATHS FROM THE PROCESSOR INTERFACE 
167 7TO0 THE PRINTER OUTPUT AN ALTERNATING 
167 :PATTERN OF ONES A D ZEROES. CORRE SPOND ING 
1674 0 AN A TERNAT ING” ati NG 
1675 aay ACTERS ARE TRANSMITTED on THE 
1676 3FULL 132 COLUMNS . AFTER 16 LINES OF 
1677 STHIS PATTERN, THE OUTPUT PATTERN 1S 
1678 ; SWITCHED TO AN ALTERNATING PATTERN 
1679 :OF AN D '‘a’’ CHARACTERS FOR ANOTHER 
1680 716 Lines 
1681 jee 
1682 
1683 010722 BGNTST 2 
(3) 010722 T2:: 
1684 
1688 sPRINT TEST IDENTIFICATION 
1689 010722 OUTPUT #DATPTH, 
1690 sPRINT ALTERNATING STRINGS OF CHARACTERS 
1691 010764 INCR PATTERN FROM #1 TO #2 BY #1 
(5) 010764 012737 000001 011352 MOV #1, PATTERN 
(7) 010772 000402 BR S0f06S 
(6) 010774 50107$: 
(10) 010774 005237 011352 INC PATTERN 
(7) 011000 50106$: 
(7) 011000 023727 011352 000002 CMP PATTERN, #2 
(9) 011006 003111 BGT 50110$ 
1692 011010 IF PATTERN EQ #1 THEN 
(6) 011010 023727 011352 00001 CMP PATTERN, #1 
(10) 011016 001004 BNE 50111 
1693 011020 LET CHAR :B= #"U 
(4) 011020 112737 000125 011312 MOVB  #"U, CHAR 
1694 011026 ELSE 
(4) 011026 000403 BR 50112 
(3) 011030 501118: 
1695 011030 LET CHAR :B= #'? 
(4) 011030 112737 000077 011312 MOVB. #'?, CHAR 
1696 011036 NDIF 
(4) 011036 501198. 
1697 911036 Ler R4 := #OUTBUF 
(4) 011036 012706 003124 #OUTBUF ,R4 
1698 011042 TCR CCNT FROM #1 TO #66. BY #1 
(5) 011042 012737 000001 002250 MOV #1,CCNT 
(7) 013050 000402 BR Solis 
(6) 011052 501148: 
(10) 011052 005237 002250 INC CCNT 
(7) 011056 501138: 
(7) 011056 023727 002250 000102 CMP CCNT, #66. 
(9) 011064 003017 BGT 50115$ 
1699 011066 (R4)* :B= CHAR 
(4) 011066 113724 011312 MOVB. CHAR, (R4)+ 
1700 011072 105137 011312 COMB CHA 


on 
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1701 011076 LET CHAR :B= CHAR CLR.BY #200 
(7) 911076 142737 000209 011312 BICB. #200, CHAR 
1702 011104 LET (R4)*+ :B= CHAR 
(4) 011104 113724 011312 MOVB CHAR, (R4)+ 
1703 011110 105137 01131 COMB CHAR 
1704 011114 LET CHAR :B= CHAR CLR.BY #200 
(7) 011116 142737 000200 011312 BICB. #200, CHAR 
1705 011122 END INC 
(5) 011122 000753 BR 501148 
(4) 011124 50115$: 
1706 011124 LET (R4)* :B= #15 
(4) O11 194 112724 000015 MOVB #15,(R4)¢ 
170? 011130 ‘ET (RG) :B= #12 
(4) 011130 112714 000012 MOVB = #12, (R4) 
1708 011134 INCR LINCNT FROM #1 TO #16. BY #1 
(5) 011134 012737 000001 002242 MOV #1,LINCNT 
(7) 011142 000402 BR 50116$ 
(6) 011144 50117$: 
(10) 011144 005237 002242 INC LINCNT 
(7) 011150 501168: 
(7) 011150 023727 002242 000020 CMP LINCNT, #16. 
(9) 011156 003024 BGT 5012 
1709 011160 OUTPUT #OUTBUF, #134. 
1710 011222 004737 005246 JSR PC, Quiet 
1711 011226 ENDING 
(5) 011226 000746 BR 50117 
(4) 011230 50120$: 
1712 011236 END INC 
(5) 011230 000661 BR 50107$ 
(4) 011232 50110$: 
1713 011232 LET OUTBUF :B= #14 
(4) 011232 112737 000014 003124 MOVB #14,0UTBUF 
1714 011240 OUTPUT #OUTBUF, #1 
1715 011302 004737 005246 JSR PC,QUIET 
1716 011306 EXIT TST 
(3) 011306 104432 TRAP = CSEXIT 
(3) 011310 000044 .WORD 1L10011-. 
1717 .NLIST BEX 
1718 011312 000000 CHAR:  .WORD O 
1719 011314 040504 040524 052040 DATPTH: .ASCIZ /DATA TRANSFER PATHS TEST 2/ <12><12><12> 
1721 EVEN 
1722 011352 000000 PATTERN: .WORD 0 
1723 SEVEN 
1724 EVEN 
1725 “LIST BEX 
1726 
1727 011354 ENDTST 
(3) 011354 110011: 
$33 011354 104401 TRAP = CSETSTI 
1729 011356 ENDMOD 
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1731 .SBTTL PRINTABLE CHARACTERS 
1732 011356 BGNMOD 
344 
1734 : THIS TEST WILL PRINT A FULL LINE OF EACH UPPER AND LOWER CASE PRINTABLE CHARACTER 
1735 + IN THE 7 BIT RANGE 
1737 
1738 011356 BGNTIST 3 
(3) 011356 T3:: 
ee 011356 OUTPUT #PRTCHR, #30. ; PRINT TEST ID 
ee 3; PRINT ALL CHARACTERS ON ALL UNITS 
1746 000001 $BRUMP=1 
1747 011420 INCR WORK FROM #40 TO #177 BY #1 
(5) 011420 012737 000040 003120 MOV #40, WORK 
(7) 011426 000402 BR 50122$ 
(6) 011430 50121$: 
(8) 011430 005237 003120 INC wORK 
(6) 011434 501228: 
(7?) 011434 023727 003120 000177 CMP WORK #177 
(9) 911442 003402 BLE 50123$ 
(7) 011444 000137 011566 JMP 50124$ 
(6) 011450 50123$: 
1748 011450 LET R4 := #MOUTBUF 
(4) 011450 012706 003124 MOV #OUTBUF ,R4 
1749 011454 INCR COUNT FROM #1 TO #132. BY #1 
(5) 011454 012737 000001 002246 MOV #1, COUNT 
(7) 011462 000402 BR 50126$ 
(6) 011464 501258: 
(8) 011464 005237 002246 INC COUNT 
(6) 011470 501268: 
(7) 011470 023727 002246 000204 CMP COUNT,#132. 
(9) 011476 003402 BLE 50127$ 
(7) 011500 000137 011512 JMP 50130$ 
(6) 011504 501278: 
1750 011504 LET (R4)* :B= WORK 
(4) 011504 113724 003120 MOVB WORK, (R4)+ 
1751 011510 ENDINC 
(4) 011510 000765 BR 50125$ 
(4) 011512 501308: 
1752 011512 LET (R4)* :B= @LF 
(4) 011512 1127246 000012 MOVB  #LF, (R4)+ 
1753 911516 OUTPUT #OUTBUF #133. 
1754 011560 004737 005246 JSR PC,QUIET 
1755 011564 ENDINC 
(4) 011564 000721 BR 50121$ 
(4) 011566 501248: : 
1756 011566 OUTPUT #DONE, #14. : TEST DONE MESSAGE 
1757. 011630 LET OUTBUF :B= #14 
(4) 011630 112737 000014 003124 MOVB  #14.0UTBUF 
1758 011636 OUTPUT #OUTBUF , #1 : EXECUTE TOF 
1759 011700 004737 005246 JSR PC, QUIET 
1760 177777 $BRIMP=-1 
1761 011704 EXIT 1ST 
(3) 011706 104432 TRAP CSEXIT 
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$2? 011706 000110 mist 8 ag tor? L10012=. 
1763 011710 051120 047111 040524 PRT -ASCIZ /PRINTABLE CHARACTERS TEST 3/ <12><12><12> 
1764 011747 1246 051505 020124 Line “ASCII TES! sCOnPLeT 
1765 011765 033 120 061 PORSQ: <BYTE 33 E3< } 61 61,171,124,151,164 : SEQS TO ASSIGN AND SEI 
1766 012001 141 156 061 “BYTE 24! #96 a "36° 56,120, $3,134, $3,133661,61,155 
1768 
1769 012016 ENDTST 

(3) 012016 110012: 

(3) 012016 104401 TRAP  CSETST 
1770 .LIST BEX 
1771 012020 ENDMOD 
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CZLNAAO LNO1 TEST DN 
CZLNAA.P11 12-JAN-83 08:1 NON-PRINTABLE CHARACTERS 
1773 .SBTTL NON=PRINTABLE CHARACTERS 
1709 012020 BGNMOD 
1777 ITHIS TEST CHECKS FOR DETECTION OF ALL NON-PRINTABLE CHARACTERS 
1778 SEXCEPT FOR HORIZONTAL TAB, LINE FEED, VERTICAL TAB, FORM 
1779 ;FEED, CARRIAGE RETURN, AND ESCAPE WHICH 
1780 [WOULD BE INTERPRETED AS VALID CONTROL CHARACTERS BY THE LNO1. 
1781 ‘CHARACTER WILL APPEAR ON THE PRINTER OUTPUT IN THE FORM OF lis’ OC TAL 
1782 : CODE ACCOMPANIED WITH ITS MNEMONIC. vit: 
1783 [122 OF THE TESTED CODE ARE THEN SENT FOLLOWED BY AN “‘a CHAPACT ER 
1784 31F THE CONTROL CODE HAS TAKEN UP A SPACE IN THE BUFFER THE ‘a’ CHARACTER 
1785 WILL APPEAR AT THE RIGHT MARGIN OF THE PAGE. IF THE CONTROL Cope HAS NOT 
1786 ;TAKEN UP SPACE IN THE BUFFER THE "‘a’’ WILL APPEAR IMMEDIATELY 10 THE RIGHT 
178? 3 OF THE MNEMONIC FOR THE CONTROL CODE. 
1789 : "NOTE" 
1790 : IF THIS TEST IS ASSEMBLED AS PART OF VERSION 1 NOI DIAGNOSTIC 
1791 ; IT WILL ALSO SEND ALL 8 BIT CONTROL CODES. THE ASS: 
1792 ; WILL SEE THE CONDITIONAL STATEMENT: ‘‘.IF DF VERS.1 LO. IF 
1793 3 VERS.1 IS DEFINED IN SKEL 2 THEN IT WILL ASSEMBLE THE CODE 
1794 : FOR THE 8 BIT CONTROL CODES AS WELL AS THE NORMAL 7 BIT CONTROL 
1795 3 CODES. 
1797 
1798 012020 BGNTST 4 
(3) 012020 
1799 NINDICATE TEST CURRENTLY BEING DONE 
1801 012020 output #NONCHR, #70. 
1802 012062 i LET R& := #NONBUF 
(4) 012062 012704 012461 MOV #NONBUF RG 
1803 012066 LET WORK #27. 
is 012066 012737 000033 003122 MOV KN? ,WORK1 
Hy +44 3; DO ONE LINE FOR EACH TABLE ENTRY 
1807 012074 LET COUNT := #0 
(4) 012074 005037 002246 CLR COUN 
1808 012100 INCR LINCNT FROM #1 TG WORK! BY #1 
(5) 012100 012737 000001 002242 MOV #1 LINCNT 
(7) 012106 0600402 BR 50131$ 
(6) 012110 50132$: 
(10) 912110 005237 002242 INC LINCNT 
(7) 0121146 50131$: 
(7) 012116 023737 002242 003122 CMP LINCNT,WORK1 
(9) 012122 003063 BGT 501 
1809 012124 LET R3 := #OUTBUF 
RO 012126 012703 003124 MOV #OUTBUF ,R3 
H+ 4 : MOVE CODE AND MNEMONIC TO PRINT BUFFER 
1813 012130 INCR WORK FROM #1 TO #8. BY #1 
(5) 012130 012737 000001 003120 MOV #1, WORK 
(7) 012136 000402 BR Sof se 34% 
(6) 012140 50135$: 
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LNO1 TEST 
11 12-JAN-83 08:16 NON-PRINTABLE CHARACTERS 
012140 005237 003120 INC WORK 
Oigiag 501348: 
012144 023727 003120 000010 CMP WORK, #8. 
012152 003002 BGT 50136$ 
012154 LET (R3)+ :B= (RG) 
012154 112423 MOVB (R4)+,(R3)¢ 
012156 ENDING 
012156 000770 BR 50135$ 
012160 501368: 
> PUT 120 BYTES OF CODE INTO PRINT BUFFER 
012160 INCR WORK FROM #1 TO #122. BY #1 
012160 012737 000001 003120 MOV #1, WORK 
012166 000402 BR 50137$ 
012170 501408: 
012170 005237 603120 INC WORK 
012174 501378: 
012174 023727 003120 000172 CMP WORK, #122. 
012202 003002 BGT 50141$ 
012204 LET (R3)* :B= (RS) 
012204 111423 MOVB (R4), (R3)* 
012206 END INC 
012206 000770 BR 501408 
012210 501418: 
3: FOLLOWED BY AN ‘'d’’ CHARACTER AND A LF 
012210 LET (R3)* :B= #100 ‘a’ 
012210 112723 000100 MOVB. #100, (R3)+ 
012214 LET (R3)+ :B= #12 zLF 
012214 112723 000012 MOVB. #12, (R3)+ 
: PRINT LINE OF OCTAL CODE, MNEMONIC, 120 BYTES(NONPRINTABLE CODE), AND ‘‘a"’ 
012220 OUTPUT w#OUTBUF #132. 
012262 004737 005246 JSR PC, QUIET 
012266 LET RG := RG + #1 
012266 005204 INC RG 
012270 END INC 
012270 000707 BR 50132$ 
012272 50133$: 
012272 LET OUTBUF :B= #14 
012272 112737 000014 003124 MOVB  #14,QUTBUF 
012300 OUTPUT #OUTBUF ,#1 
012342 004737 005246 JSR PC, QUIET 
012346 EXIT TST sAND EXIT TEST 
012346 104432 TRAP CSEXIT 
012350 000476 .WORD 110013-. 
[CHARACTER BUFFER AND TEST HEADER MESSAGE 
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1958 .SBTTL PRINT CONTROL 
1936 013050 BGNMOD 
3¢o* 

1956 sTHIS TEST CHECKS THE PRINT CONTROL BY SENDING MORE THAN 132 CHARACTERS 
1957 SBEFORE SENDING A CARRIAGE RETURN AND LINE FEED. ALL CHARACTERS IN EXCESS 
1998 [OF 132 CHARACTERS SHOULD BE DISREGARDED. 
1960 ; THREE LINES ARE PRINTED PER ITERATION, THESE LINES WILL IDENTIFY THE 
1961 COLUMN NUMBERS ACROSS THE PAGE. EXAMPLE : ; 
1962 4 0 0 eeeeseeeeeeeeaeeeeeaeene t 
1963 Py 1 2 ; SERRE 3 
1966 +123456789012345678901234567890....ccecccccccccce 012 
1966 SNOTICE THAT THE PRINTOUT SHOULD IDENTIFY 132 COLUMNS ACROSS THE PAGE. 
1968 STHIS OUTPUT IS REPEATED 13 TIMES. 
1970 013050 BGNIST 5 

(3) 013050 TS:: 
1974 013050 LET R1 := LSUNIT - #1 

(5) 013050 013701 002012 MOV LSUNIT,R1 

(7) 013054 005301 DEC R1 
1975 000001 $BRIMP=1 
1976 013056 INCR LUNIT FROM #0 TO R1 BY #1 

(5) 013056 005037 002260 CLR LUNIT 

(7) 013062 000402 BR 501438 

(6) 013064 50142$: 

(8) 013064 005237 002260 INC LUNIT 

(6) 013070 50143$: 

(7) 013070 023701 002260 CMP LUNIT,R1 

(9) 013074 003402 BLE 50144$ 

(7) 013076 000137 013734 JMP 50145$ 

(6) 013102 501448: 
1977. 013102 LET R2 := LUNIT SHIFT 1 

(5) 013102 013702 002260 MOV LUNIT,R2 

(B) 013106 006302 ASL R2 
1978 013110 OUTPUI #PRICTL,#56.,,LUNIT 
1979 013152 LET CGUNT := #13, 

(4) 013152 012737 000015 002246 MOV #13.,COUN 
1980 013160 1$: 
1981 013160 LET RS := #TABLE? 

(4) 013160 012705 014210 MOV #TABLE1,R5 
1982 913164 WHILE (RS) NE #0 DO 

(4) 013164 501468: 

(6) 013164 005715 TST (RS) 

(B) 013166 001002 BNE .+6 

(9) 013170 000137 013236 JMP 50147$ 
1983 013174 OUTPUI (R5)+,410.,,LUNIT 

1984 013234 ENDDO 

(3) 013234 000753 BR 5014 

(3) 013236 50147$: 
1985 013236 LET OUTBUF :B= #12 

(4) 013236 112737 000012 003124 MOVB #12,0UTBUF 

1986 013244 OUTPUL #OUTBUF ,#1,,LUNIT 
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1988 013306 LET RS := #TABLE2 
(4) 013306 012705 014244 MOV #TABLE2,R5 
1989 013312 WHILE (RS) NE #0 DO 
(4) Q1 \§ 501508: 
(6) 01331 005715 TST (RS) 
(8) 013 14 001002 BNE +6 
(9) 013316 000137 013364 JMP 501518 
1990 013522 OUTPUL (R5)+,#10.,,LUNIT 
1991 013362 ENDDO 
(3) 013362 000753 BR 501508 
(3) 013364 501518: 
199@ 013364 OUTPUI #OUTBUF ,#1,,LUNIT 
1994 013426 DECR LINCNT FROM #14. TO #1 BY #1 
(5) 013426 012737 000016 002242 MOV #14. ,LINCNT 
(7) 013434 000402 BR 50153$ 
(6) 013436 50152$: 
(8) 013636 005337 002242 DEC LINCNT 
(6) 013442 50153$: 
(7) 013442 023727 002242 000001 CMP LINCNT,#1 
(9) 013450 002002 BGE 50154$ 
(7) 013452 000137 013522 JMP 50155$ 
(6) 013456 501548: 
1995 013456 OUTPUI #X11,#10.,.LUNIT 
1996 013520 ENDDECR 
(4) 013520 000746 Bu 501528 
(4) 013522 50155$: 
1997 013522 OUTPUI #OUTBUF ,#1,,LUNIT 
1998 013564 OUTPUI #OUTBUF.#1,.LUNIT 
1999 013626 LET COUNT := COUNT = #1 
(7) 013626 005337 002246 DEC COUNT 
2000 013632 IF COUNT GT #0 THEN 
(6) 0136352 005737 002246 TST COUNT 
(8) 013636 003002 BGT +6 
(9) 013640 000137 013650 JMP 501568 
2001 013644 000137 0'3160 JMP 1$ 
2002 013650 ENDIF 
(4) 013650 501568: 
2003 013650 004737 305246 JSR PC, QUIET 
2004 013654 LET OUTBUF :B= #14 
(4) 013654 112737 000014 003124 MOVB #14, QUTBUF 
2005 013662 OUTPUL #OUTBUF,#1,,LUNIT 
2006 013724 004737 005246 JSR PC,QUIET 
2007 913730 ENDINCR 
(4) 013730 000137 013064 JMP 50142 
(4) 013734 501458: 
2008 177777 S$BRIMP=-1 
2009 013734 EXIT TST 
(3) 013734 104432 TRAP CSEXIT 
(3) 013736 000342 .WORD L10014-. 
2019 .NLIST BEX 
2011 013740 051120 047111 020124 PRICTL: ASCII /PRINT CONTROL TEST 5/ <12> 
2012 013766 044123 052517 042114 “ASCIZ /SHOULD SHOW 132 COLUMNS PRINTED/<12><12><15> 
2014 014031 040 020040 020040 x0: ASCII / O/ 
2015 014043 040 020040 020040 x1: ASCII / V/ 
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3036 .SBTTL MULTIPLE LINE ADVANCE 
2038 014302 BGNMOD 
34+ 
2040 sTHIS TEST CHECKS THE MULTIPLE LINE ADVANCE OF THE LNO1. A LINE OF 
2041 sNUMBERS IS SENT AND THEN A NUMBER OF LINE FEEDS ARE SENT. THUS THE 
sore sNUMBER PRINTED WILL INDICATE THE NUMBER OF BLANK LINES FOLLOWING THAT 
204 sLINE. THE NUMBER OF LINES IS VARIED BETWEEN 2 AND 7 AND A LINE OF 
soee sALL O'S WILL INDICATE THE END OF THE TEST SEQUENCE. 
2046 
2047 
2048 014302 BGNIST 6 
(3) 014302 T6:: 
2049 
2050 PRINT TEST IDENTIFICATION 
$32? 014302 OUTPUT #MULINE , #86. 
2057 014344 LET STACHR := #TABSTR OUTPUT CHARACTERS 
afeh 014344 0127357 014622 014620 MOV #TABSTR,STACHR 
2059 014352 REPEAT 
(3) 014352 50157$: 
2060 014352 LET LINCNT :B= @STACHR GET A CHARACTER TO OUTPUT 
(4) 014352 117737 000242 002242 MOVB @STACHR,LINCNT 
2061 014360 LET LINCNT := LINCNT AND #7 ;MAKE THE ASCII TO OCTAL 
(7) 014360 013746 002242 MOV LINCNT,-(SP) 
(7) 014364 042716 000007 BIC #7, (SP) 
(7) 014370 042637 002242 BIC (SP)+,LINCNT 
2062 014374 LET R3 := #OUTBUF SET UP OUTPUT BUFFER 
(4) 014374 012703 003124 #OUTBUF ,R3 
2063 014400 INCR CCNT FROM #1 TO #132. BY #1 
(5) 014400 012737 000001 002250 MOV #1,CCNT 
(7) 014406 000402 BR 50160$ 
(6) 014410 50161$: 
(10) 014410 005237 002250 INC CCNT 
(7) 014614 501608: 
(7) 014414 023727 002250 000204 CMP CCNT,#132. 
(9) 014422 003003 BGT 1 
2064 014424 . LET (R3)+ :B= @STACHR :PUT CHARACTER IN OUTPUT BUFFER 
(4) 014424 117723 000170 MOVB @STACHR, (R3)¢ 
2065 014430 END INC 
(5) 614430 000767 BR 501618 
(4) 014432 50162$: 
2066 014432 LET RG := #0 
(4) 014432 005004 CL R4 
2067 014434 WHILE R4 NE LINCNT DO 
(4) 014434 50163$: 
(6) 014434 020437 002242 CMP R4,LINCNT 
(19) 014440 001404 BEQ 64 
2068 014442 LET (R3)* :B= #12 FILL WITH LINE | EEDS 
(4) 014442 112723 000012 MOVB #12, (R3)+ 
2069 014446 LET RO := RG + #1 
(7) 014446 005204 INC 
2070 014450 ENDDO 
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(4) 014450 000771 BR 501638 
{3 014452 501648: 
2079 sNOW OUTPUT THE ACTUA! vile 
2074 014452 LET RG := LINCNT + #132. sNUMBER OF CHARACTERS TO OUTPUT 
(5) 014452 013704 002242 MOV LINCNT,R4 
(7) 014456 062704 000204 ADD #132.,R4 
2075 014462 LET STACHR := STACHR + #1 y UPDATE CHARACTER COUNT 
(7) 014462 005237 014620 INC STACHR 
2076 014466 OUTPUT #OUTBUF ,R4 OUTPUT THE LINE 
sort 014526 004737 005246 JSR PC, QUIET 
2079 014532 UNTIL LINCNT EQ #0 
(3) 014532 005737 002242 TST LINCNT 
(7) 014536 001305 BNE 50157$ 
2080 014540 LET OUTBUF :B= #14 
(4) 014540 112737 000014 003124 MOVB #14,OUTBUF 
2081 014546 OUTPUT #OUTBUF #1 
2082 014610 004737 005246 JSR PC, QUIET 
2083 014614 EXIT TST 
(3) 014614 10443 TRAP CSEXIT 
(3) 014616 00015 «WORD 1L10015-. 
2084 
2085 
2086 014620 000000 STACHR: .WORD 0 
2087 1ST 


-NLIST BEX 
2088 014622 033462 033062 033463 TABSTR: .ASCIZ /272637463540/ 
115 046125 044524 MULINE: .ASCII /MULTIPLE LINE ADVANCE TEST 6/<12> 
2090 014675 116 046525 042502 eASCIZ /NUMBERS PRINTED REPRESENT # LINES TO NEXT LINE PRINTED/<12><12> 


4766 104401 “ TRAP = CSETST 
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2100 .SBTTL DVSTRIKE 
101 -MODULE DVSTR1.P11 
102 014770 &GNMOD 
*+¢ 
2104 [THIS TEST WILL VERIFY CORRECT OPERATION OF THE PRINTER WHILE OPERATING 
2105 ;JUST WITHIN OVERSTRIKE, LINE BUFFER AND PAGE BUFFER LIMITS. 
2106 [A TOTAL OF & OVERSTRIKES ON ONE LINE IS ALLOWED AND IS TESTED. 
2107 SWE ARE LIMITED WHEN SENDING CHARACTERS TO THE LINE BUFFER. IF YOU USE THE DEFAULT 
108 [FONT AND PRINT SEQUENTIAL LINES, THE LIMIT IS 148 TOTAL CHARACTERS PER LINE COUNTING 
109 TALL CHARACTERS THAT ARE ACTUALLY TRANSMITTED FROM THE LP11 HOST INTERFACE. 
2110 [THIS LIMIT IS TESTED AS WELL. 
2111 ‘THE PAGE BUFFER LIMIT IS 10,000 CHARACTERS AND THIS TEST OPERATES ‘JUST’ 
gil [WITHIN THAT LIMIT, USING OVER 9,900 CHARACTERS. 
2114 : NOTE 
2115 : THIS TEST IN A SOMEWHAT MODIFIED FORM IS BEING USED ALSO FOR 
3116 : THE VAX VERSION OF THE LNO1 EXTENDED DIAGNOSTIC. 
2118 ; IN THE PDP=11 FORM (WHICH IS THIS MODULE) THE PAGE BUFFER ENDS UP CONTAINING 
2119 : A TOTAL OF 9,939 CHARACTERS. THIS INCLUDES THE EVER PRESENT 7 CHARACTERS FOR 
sis0 3 EACH LINE THAT THE PRINTER USES. 
2122 : IN THE VAX FORM (WHICH IS USED IN THE VAX PRINTER DIAGNOSTIC) THE PAGE BUFFER 
2123 : ENDS UP CONTAINING A TOTAL OF 9,949 CHARACTERS. THIS INCLUDES 7 THE EVER PRESENT 
e124 : CHARACTERS FOR EACH LINE THAT THE PRINTER USES. 
2126 : OTE: 
2127 ; ONE THING NOT COUNTED HERE IS THE POSSIBILITY OF THE PRINTER USING ONE EXTRA 
2128 ; SPACE PER LINE FEED IN ITS BUFFER WHEN IN LINE FEED-NEWLINE MODE’. 
2129 : THE WORST CASE IF THIS SHOULD HAPPEN IS THAT 66 EXTRA CHARACTERS WOULD END 
2130 : UP ADDED TO THE PREVIOUS PAGE BUFFER TOTAL. I DON'T BELIEVE THAT EVEN THIS 
2131 ; CASE WOULD CAUSE A FAILURE. HOWEVER, THE POSSIBILITY EXISTS BECAUSE THE PAGE BUF 
2132 : WOULD SLIGHTLY EXCEED ITS LIMIT ON THE PDP11 VERSION AS WELL AS THE VAX VERSION. 
2134 
2135 014770 BGNTST 7 
21% 014770 T7:: 
2137 014770 LET RG := #OUTBUF : ADDRESS OF BUFFER 
(4) 014770 012704 003124 MoV #OUTBUF ,R4 
2138 014774 LET (R&)+ :B= #116 > N" 
(4) 014776 112724 000116 MOVB #116,(R4)¢ See, 
2139 015000 LET (R4)+ :B= #132 a 
(4) 915000 112724 000132 MOVB #132,(R4)+ he 
2140 015004 LET (R4)+ :B= #116 3 
(4) 015006 112724 000116 MOVB #116, (R4)+ 
2141 015010 LET (R4)+ :B= #CR ; CARRIAGE RET. 
(4) 015010 112724 000015 MOVB  #CR,(R4)¢ 
2142 015014 LET (R4)+ :B= @LF > LINE FEED 
(4) 015014 112724 000012 MOVB = @LF, (RG) 
2143 015020 LET (R4)+ :B= &#FF : FORM FEED 
(4) 015020 1127246 000014 MOVB WEF, (RG) 
2144 015024 LET (R4)+ :B= #40 : SPACE 
(4) 015026 112724 000040 MOVB #40, (R4)+ 
2148 015030 OUTPUT #OVSTR,#15. ; TEST ID WITHOUT LINE FEED 
2149 015072 OUTPUT #OUTBUF +6,41,,#99. > DO 90 SPACES TO TAKE UP LINE BUFFER SP 
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2150 0151 OUTPUT #OUTBUF +4, #1 7 DO LINE FEED 
151 015176 OUTPUT #27N1,#3 i1gt OVERPRINT LINE 
138 gi 40 OUTPUT #OUTBUF+6,#1,,#90. : 90 SPACES 
1 15302 OUTPUT #OUTBUF +4, #1 > LINE FEED 
154 O19 4 OUTPUT #2N2,@7. 72ND . vn 
155 0154 OUTPUT #OUTBUF+6,41,,490. + DO 90 SPACES TO TAKE UP LINE BUFFER SP 
196 01545 OUTPUT #OUTBUF +4, #1 3.00 LINE FEED 
167 01551 OUTPUT #7N3,#12. + 3RD : ‘ 
158 015554 OUTPUT #OUTBUF+6,#1,,#90. : DO 90 SPACES TO TAKE UP LINE BUFFER SP 
159 015616 OUTPUT #OUTBUF +4,41 : DO LINE FEED 
160 015660 OUTPUT #2NG,#18. [4TH 
161 015722 OUTPUT #OUTBUF+6,41,,#90. t DO 90 SPACES TO TAKE UP LINE BUFFER SP 
162 015764 : OUTPUT #OUTBUF+4.#1 : DO LINE FEED 
16 0160¢6 004737 005246 JSR PC, QUIET 
164 0160 : INCR COUNT FROM #1 TO #61. BY #1 : 61 LINES OF OVERPRINTING 
(5) 016032 012737 000001 002246 MOV #1, COUNT 
(7) 016040 000402 BR 50165$ 
(6) 01604¢ 50166$: 
(10) 016042 005237 002246 INC COUNT 
(7) 016046 50165$: 
(7) 016046 023727 002246 000075 CMP COUNT, #61. 
(9) 016054 003135 BGT 501678 4 
2165 016056 OUTPUT #OUTBUF #2, #36. : LINE OF NZ 
2166 016120 OUTPUT #OUTBUF +3, a1 : CARRIAGE RET. (NO LF) 
2167 016162 OUTPUT #OUTBUF+1,#2,,436. + LINE OF Z 
2168 016224 IF COUNT EQ #61. THEN : IS THIS THE LAST LINE? 
(6) O162e4 023727 002246 000075 CMP COUNT, #61. 
(10) 016232 001022 BNE 50170 
2169 016234 OUTPUT #OUTBUF +3,41 ; CARRIAGE RETURN ONLY ON LAST LINE 
2170 016276 ELSE 
(4) 016276 000421 BR 50171 
(3) 016300 501708: 
2171 016300 OUTPUT #OUTBUF +3, #2 : CR AND LF ON EVERY OTHER LINE 
2172 016342 ENDIF 
(4) 016342 50171$: 
2173 016342 004737 005246 JSR PC, QUIET 
2174 016346 ENDINC : WHEN DONE FALL THROUGH 
(5) 016346 900635 R 50166$ 
(4) 016350 50167$: 
2175 016350 OUTPUT #OUTBUF +5, #1 : DO FORM FEED 
2176 016412 004737 005246 JSR PC, QUIET 
2177 016416 EXIT TST 
(3) 016416 104432 TRAP = CSEXIT 
(3) 916420 000100 .WORD 110016-. 
2178 .NLIST BEX 
2179 016422 000000 7NUM: WORD 0 
2180 016424 000000 SPANUM: .WORD 0 
2181 016426 000000 NEWSPA: .WORD 0 
2182 016430 053104 052123 044522 DVSTR: .ASCIZ /DVSTRIKE TEST 7/ 
2183 016450 006532 116 7N1: “ASCII «= /2/<15>/N/ 
2184 016453 132 006532 006516 2ZN2: eASCI] = /22/<15>/N/<15><40>/N/ 
2185 016462 055132 006532 006516 2N3: "ASCIT /222/<15>/N/<15><40>/N/<15><40><40>/N/ 
$138 016476 055132 055132 047015 oe eASCII] £2222/<15>/N/<15><40>/N/<15><40><40>/N/<15><40><40><40>/N/ 
$188 016520 ENDTS! 
(3) 016520 110016: 
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(3) 016520 104401 TRAP CSETST 
2189 .LIST BEX 
¢130 016522 ENDMOD 
191 ~SBTTL READY LINE INTERLOCKS TEST 8 
2195 016522 BGNMOD 
2195 ‘THIS TEST CHECKS THE OPERATION OF THE 
2196 SPRINTER READY INTELOCK SWITCHES. 
2197 SMANUAL INTERVENTION IS USED T 
2198 [OPEN THE INTERLOCKS TO PRODUCE FAULTS 
3199 :IN THE PRINTER AFTER WHICH THE RESULTANT ERROR 
200 S INDICATION IS VERIFIED. 
2201 to. 
220¢ 
2203 016522 BGNTST 8. 
(3) 016522 T8:: 
2204 :DETERMINE IF MANUAL INTERVENTION IS ALLOWED 
2205 016522 MA 
(3) 016522 104450 TRAP  CSMANI 
2206 016524 BCOMPLETE 11$ 
(2) 016524 103402 BCS 11$ 
2207 016526 EXIT TST 
(3) 016526 104432 TRAP —s- CSEXIT 
(3) 016530 002726 .WORD L10017-. 
2208 “EXIT TEST IF MANUAL INTERVENTION TESTS ARE NOT SPECIFIED 
2209 016532 i$: IF INHINT EQ #0 THEN 
(6) 016532 005737 002234 TST INHINT 
(10) 016536 001002 BNE 50172$ 
2210 016540 EXIT TST 
(3) 016540 104432 TRAP —s- CSEXIT 
(3) 016542 002714 .WORD L10017-. 
2211 016544 ENDIF 
(4) 016544 501728: 
2212 016544 LET FLAG := #0 
(4) 016544 005037 002240 CLR FLAG 
2213 016550 LET R1 := LSUNIT = #1 
(5) 016550 013701 002012 MOV LSUNIT,R1 
mt¢ 016554 005301 DEC R1 
2215 ;CHECK FOR ERROR IN EACH PRINTER UNDER TEST 
2216 016556 INCR LUNIT FROM #0 TO R1 BY #1 
(5) 016556 005037 002260 CLR LUNIT 
(7) 616562 000402 BR 501738 
(6) 016564 50174$: 
(10) 016564 005237 002260 INC LUNIT 
(7) 016570 50173$: 
(7) 016570 023701 002260 CMP LUNIT,R1 
(9) 016574 003020 BGT $0175$ 
2217 016576 LET R2 := LUNIT SHIFT 1 
(5) 016576 013702 002260 MOV LUNIT,R2 
(B) 016602 006302 ASL R2 
2218 016604 IF #61115 SETIN @LPCSR(R2) THEN 
(6) 016606 032772 100000 002322 BIT #B1T15,aLPCSR(R2) 
(10) 016612 001410 BEQ 50176$ 
2219 016614 LET ERRTBL(R2) := ERRTBL(R2) + #1 
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CZLNAAO LNOT TEST DNMAC X24.07-563 12=JAN-83 08:16 PAGE 1929" SEQ 0068 
CZLNAA.P11 = 12=JAN=83 08:16 READY LINE INTERLOCKS TEST 
(7) 016614 005262 003060 INC ERRTBL(R2) 
2220 016620 ERRHRD 6, CSRERR 
(4) 016620 104456 TRAP CSERHRD 
(5) 016622 000006 -WORD 
(5) 016626 003352 -WORD CSRERR 
(5) 016626 000000 -WORD 0 
2221 016630 LET @LPCSR(R2) := #0 
(4) 016630 005072 002322 CLR = @LPCSR(R2) 
2222 016634 ENDIF 
(4) 016634 501768: 
2223 016634 END INC 
(5) 016634 000753 ay 50174$ 
(4) 016636 501758: 
2224 CHECK FOR READY IN EACH "a a UNDER TEST 
2225 016636 INCR Lumet ice TO R1 BY #1 
(5) 016636 005037 002260 CLR UNIT 
(7) 016642 000402 BR 501778 
(6) 016644 502008: 
(10) 016644 005237 002260 INC LUNIT 
(7) 016650 501778: 
(7) 016650 023701 002260 (MP LUNIT,R1 
(9) 016654 003021 BGT 50201$ ‘ 
2226 016656 LET R2 := LUNIT SHIFT 1 
(5) 016656 013702 002260 MOV LUNIT,R2 
(8) 016662 006302 ASL R2 
2227 016664 LET LSLUN = LUNIT 
(4) 016664 013737 002260 002074 LUNIT .L$LU 
2228 016672 TF #BIT0? NOTSETIN @LPCSR(R2) THEN 
(6) 016672 032772 000200 002322 BIT #81107 ,aLPCSR(R2) 
(10) 016700 001006 BNE 502028 
2229 016702 LET ERRTBL(R2) := ERRTBL(R2) + #1 
(7) 016702 005262 003060 INC ERRTBL (R2) 
2230 016706 ERRHRD 7, RDYERR 
(4) 016706 104456 TRAP CSERHRD 
(5) 016710 000007 -WORD 7? 
(5) 016712 003370 »WORD RDYERR 
(5) 016714 000000 WORD 0 
2231 016716 ENDIF 
(4) 016716 502028: 
2232 016716 ENDINC 
(5) 016716 000752 BR 502008 
(4) 016720 502018: 
2233 ; 
$See ; PRINT TEST NAME 
2236 016720 OUTPUT #INTLK,#29. 
2237 SVERIFY OPERATION OF PAPER QUT INTERLOCK SWITCH 
238 HARD CODED INCREMENT LOOP 
2240 016762 LET ERRFLG := #0 
(4) 016762 005037 002304 CLR —s ERRFLG 
2241 016766 005037 002260 CLR LUNI 
2242 016772 000405 BR 1$ 
2243 016774 2$: 
2244 016774 005237 002260 INC LUNIT 
2245 017000 LET R2 := LUNIT SHIFT 1 
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CZLNAAO LNOI TEST DNMAC K24.07=563 12-JAN-83 08:16 PAGE 19-23 SEQ 0069 


CZLNAA.P11 12-JAN-83 08:16 READY LINE INTERLOCKS TEST 8 
(5) 017000 013702 002260 MOV LUNIT.R2 
(8) 017004 00630 ASL R 
2246 017006 1$: 
2247 017006 023701 002260 CMP LUNIT RI 
2248 017012 003402 BLE 3$ 
2249 017014 000137 017546 JMP 4$ 
2250 017020 3$: 
2251 917020 LET FLAG := #0 
(4) 017020 005037 002240 CLR FLAG 
2252 017024 PRINTF #PAPRSW 
(7) 0170¢4 012746 020400 MOV #PAPRSW,=(SP) 
(6) 017030 012746 000001 MOV #1,-(SP5 
(3) 017034 010500 MOV SP-R 
(4) 017036 104417 TRAP CSPNTF 
(4) 017040 062706 000004 ADD #4 ,SP 
2253 017044 PRINTF #PAPSW1,LUNIT 
(B) 017044 013746 002260 MOV LUNIT,=(SP) 
(7) 017050 012746 020455 MOV #PAPSW1,-(SP) 
(6) 017054 012746 000002 MOV #2,-(SP) 
(3) 017060 010600 MOV SP, RO 
(4) 017062 104417 TRAP CSPNTF 
(4) 017064 062706 000006 ADD #6,SP 
2254 017070 PRINTF #PAPSW2 
(7) 017070 012746 020535 MOV #PAPSW2,-(SP) 
(6) 017074 012746 000001 MOV #1,-(SP) 
(3) 017100 010600 MOV SP,RO 
(4) 017102 104417 TRAP CSPNTF 
(4) 017104 062706 000004 ADD #4 ,SP 
2255 017110 GMANIL READY, FLAG, 100000, YES 
(3) 017110 104443 TRAP  C$GMAN 
(3) 017112 000404 BR 10000$ 
(4) 017114 002240 ~ WORD FLAG 
(5) 017116 006130 “WORD TSCODE 
(5) 017120 006752 ~ WORD READY 
(5) 017122 100000 “WORD 100000 
(3) 017124 10000$: 
2256 017124 LET LINCNT := #2 : LINE COUNT WILL ALLOW FOR 3 PAGES OF PAPER 
(4) 017124 012737 000002 002242 MOV #2,LINCNT 
2257 017132 LET ERRFLG := #0 
(4) 017132 005037 002304 CLR ERRFLG 
2258 017136 REPEAT 
(3) 017136 502038: 
2259 017136 OUTPUL #PAPTST,#15.,#5$.LUNIT 
2260 917250 LET LINCNT := LINCNT + #1 
(7) 017200 005237 002242 INC LINCNT 
2261 017204 IF LINCNT EQ #65. OR LINCNT EQ #130. OR LINCNT EQ #195. THEN 
(6) 017204 023727 002242 000101 CMP LINCNT,#65. 
(8) 017212 001410 BEQ 50204$ 
(6) 017214 023727 002242 000202 CMP LINCNT, #130. 
(B) 017222 001404 BEQ 50204$ 
(6) 017204 023727 002242 000303 CMP LINCNT #195, 
(10) 017232 001024 BNE 0205$ 
(6) 017234 50204$: 
2262 017234 LET OUTBUF := #14 > FORM FEED 
(4) 017236 012737 000014 003124 MOV #14, 0UTBUF 
2263 017242 OUTPUL #OUTBUF ,#1,5$,LUNIT : QUIPUT THE FORM FEED 


F_ 6 
X24, res 12-JAN-83 08:16 PAGE 19-24 SEQ 0070 


CZLNAAO LNO1 E T DNMA 
CZLNAA,P11 12-JAN-83 08:1 READY LINE INTERLOCKS TEST 8 
2264 017308 ENDIF 
(4) 017304 502058: 
2265 017304 UNTIL LINCNT EQ #260. OR ERRFLG NE #0 : UNTIL FOUR PAGES PRINTED OR IN 
(4) 017306 023727 002242 000404 MP LINCNT, #260. 
(6) 017312 001403 BEQ 0 
(4) 017314 005737 002304 TST ERRFLG 
(8) 017320 001706 BEQ 50203$ 
(4) 017322 502068: 
2266 017322 If jERRFLG EQ #0 THEN 
(6) 017322 005737 002304 ERRFLG 
(10) 017326 001035 BE 50207$ 
2267 017330 LET OUTBUF := #14 : FORM FEED 
(4) 017330 012737 000014 003124 MOV #14,0U UTBUF 
2268 017336 OUTPUI #OUTBUF ,#1,5$,LUNIT : OUTPUT THE FF 
2269 017400 ERRHRD 8,PAPSWI 
(4) 017400 104456 TRAP CSERHRD 
(5) 017402 000010 eWORD 8 
(5) 017404 003412 .WORD PAPSWI 
(5) 017406 000000 -WORD 0 
2270 017410 LET ERRTBL(R2) := ERRTBL(R2) + #1 
(7) 017410 005262 003060 INC ERRTBL ¢ 
2271 017414 INL INE <JMP 11002$> 
(2) 017414 000137 017426 JMP 11002$ 
2272 017420 ELSE 
(4) 017420 000402 BR 502108 
(3) 017422 50207$: 
2273 017422 LET ERRFLG := #0 
(4) 017422 005037 0023504 CLR ERRFLG 
2274 017426 ENDIF 
(4) 017426 50210$: 
2275 017426 11002$: PRINTF #PAPRDY,LUNIT 
(8) 017426 013746 002260 MOV LUNIT,-(SP) 
(7) 017432 012746 020577 MOV #PAPRDY,-(SP) 
(6) 017436 012746 000002 MOV #2,-(SP) 
(3) 017442 010600 MOV SP,RO 
(4) 017444 104417 TRAP CSPNTF 
(4) 017446 062706 000006 ADD #6,SP 
2276 017452 LET FLAG := #0 
(4) 017452 005037 002240 CLR FLAG 
2277 017456 GMANIL READY,FLAG, 100000, YES 
(3) 017456 104443 TRAP C$GMAN 
(3) 017460 000404 BR 10001$ 
(4) 017462 002240 eWORD FLAG 
(5) 917464 000130 WORD TSCODE 
(5) 017466 006752 -WORD READY 
(5) 017470 100000 WORD 100000 
(3) 017472 10001$: 
2278 017472 LET R2 := LUNIT SHIFT 1 
(5) 017472 013702 002260 aie LUNIT,R2 
(8) 017476 006302 R2 
2279 017500 tel @LPCSR(R2) := #0 : RESET THE LP CSR 
(4) 017500 005072 002322 @LPCSR(R2) 
2280 017504 000137 016774 P 28 
2281 EXPECT ED” ERROR HANDLER 
Sse S JUST SET EXPECTED ERROR INDICATOR. 


CZLNAAO LNO1 TEST DNMAC X24.07=563 12-JAN-83 08:16 PAGE 19825" SEQ 0071 
CZLNAA.P11 12-JAN=83 08:16 READY LINE INTERLOCKS TEST 8 


2284 017510 S$: LET ERRFLG := #1 
(4) 017510 012737 000001 002304 MOV #1 ERRFLG 
2285 017516 LET ERRCOD := #0 
(4) 017516 005037 002302 CLR ERRCOD 
2286 01752¢ LET STATUS(R2) := STATUS(R2) CLR.BY #ERROR!ACTIVE 
(7) 017522 042762 120000 002456 BIC MERROR! ACTIVE, STATUS (R2) 
2287 017530 LET CURCNT(R2) := #0 ; CLEAN UP THE DRIVER PARAMETERS 
(4) 017530 005062 002716 CLR CURCNT(R2) 
2288 017534 LET CURADD(R2) := # 
(4) 017534 005062 002516 CLR CURADD(R2) 
2289 017540 LET REPCNT(R2) := #0 
(4) 017540 005062 002616 CLR REPCNT(R2) 
2290 017544 00020 RTS PC ;AND RETURN 
2291 sVERIFY OPERATION OF PAPER TRAY HANDLE INTERLOCK SWITCH. 
2292 017546 is: INCR LUNIT FROM #0 TO R1 BY #1 
(5) 017546 005037 002260 CLR LUNIT 
(7) 017552 000402 BR 50211% 
(6) 017554 50212$: 
(10) 017554 005237 002260 INC LUNIT 
(7) 017560 $0211$: 
(7) 017560 023701 002260 CMP LUNIT,R1 
(9) 017564 003117 BGT 50213$ 
2293 017566 LET R2 := LUNIT SHIFT 1 
(5) 017566 013702 002260 MOV LUNIT,R 
(8) 017572 006302 ASL R2 
2294 017574 LET L$LUN := LUNIT 
(4) 017574 013737 002260 002074 MOV LUNIT,L$LUN 
2295 017602 LET FLAG := #6 
(4) 017602 005037 002240 CLR FLAG 
2296 017606 PRINTF #HANRSW 
(7) 017606 012746 020796 MOV #HANRSW,=(SP) 
(6) 017612 012746 000001 MOV #1,-(S5P5 
(3) 017616 010600 MOV SP.RO 
(4) 017620 104417 TRAP  CSPNTF 
(4) 017622 062706 000004 ADD #4,S5P 
2297 017626 PRINTF #HANSW1,LUNIT 
(B) 017626 013746 002260 MOV LUNIT,-(SP) 
(7) 017632 012746 020770 MOV #HANSW1, (SP) 
(6) 017636 012746 000002 MOV #2,-(SP) 
(3) 017642 010600 MOV SP.RO 
(4) 017644 104417 TRAP CSPNTF 
(4) 017646 062706 000006 ADD #6,SP 
2298 017652 PRINTF #HANSW2 
(7) 917652 012746 021055 MOV #HANSW2,-(SP) 
(6) 017656 012746 000001 MOV #1,-(SP5 
(3) 017662 010600 MOV SP.RO 
(4) 017664 104417 TRAP CSPNTF 
(4) 017666 062706 000004 ADD #4,SP 
2299 017672 GMANIL READY, FLAG, 100090, YES 
(3) 017672 1044643 TRAP C$GMAN 
(3) 017674 000404 BR 10002$ 
(4) 017676 002240 .WORD FLAG 
(5) 017700 000130 "WORD TSCODE 
(5) 017702 006752 "WORD READY 
(5) 017706 100000 "WORD 100000 
(3) 017706 10002$: 
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CZLNAAO LNO1 TEST DNMAC X24.07=563 12-JAN-83 08:16 PAGE 19-26 SEQ 0072 
CZLNAA.P11 12=JAN-83 08:16 READY LINE INTERLOCKS TEST 8 
2300 017706 If #BIT15 SETIN @LPCSR(R2) THEN 
(6) 017706 032772 100000 002322 BIT #B Stitt ts 
(10) 017716 001431 BEO 4$ 
2301 017716 PRINTF #HANRDY 
(7) O17716 ot 746 021114 MOV #HANRDY, (SP) 
(6) 0177 12746 000001 MOV #1,<(SP5 
(3) 617726 01 600 MOV SP-RO 
(4) 017730 10441 TRAP  (CSPNTF 
(4) 017732 062706 000004 ADD #4 ,SP 
2302 017736 PRINTF #HANRD1,LUNIT 
(8) 017736 013746 002260 MOV LUNIT,<(SP) 
(7) 017742 012746 021201 MOV #HANRD1,-(SP) 
(6) 017746 012746 000002 MOV #2,-(SP) 
(3) 017752 010600 MOV SP,RO 
(4) 017756 104417 TRAP — CSPNTF 
(4) 017756 062706 000006 ADD #6,SP 
2303 017762 GMANIL READY, FLAG, 100000, YES 
(3) 017762 104443 TRAP  C$GMAN 
(3) 017764 000404 BR 10003$ 
(4) 017766 002240 .WORD FLAG 
(5) 017770 000130 “WORD TSCODE 
(5) 017772 006752 “WORD READY 
(5) 017774 100000 “WORD 100000 
(3) 017776 100038: 
2304 017776 ELSE 
(4) 017776 000411 BR 50215$ 
(3) 020000 502148: 
2305 020000 LET ERRTBL(R2) := ERRTBL(R2) + #1 
(7) 020000 005262 003060 INC ERRTBL (R2) 
2306 020004 LET L$LUN := LUNIT 
(4) 020006 013737 002260 002074 MOV LUNIT, 
2307 020012 ERRHRD 9,HANSWI 
(4) 020012 104456 TRAP — CSERHR 
(5) 020014 000011 .wORD 9 
(5) 020016 003455 "WORD HANSWI 
(5) 020020 000000 “WORD 0 
2308 020022 ENDIF 
(4) 020022 50215$: 
2309 020022 ENDINC 
(5) 020022 000654 BR 502128 
(4) 020024 50213$: 
2310 SVERIFY OPERATION OF FRONT DOOR INTERLOCK SWITCH. 
2311 020024 INCR LUNIT FROM #0 TO R1 BY #1 
(5) 920024 005037 002260 CLR LUNIT 
(7) 020030 000402 BR 50216$ 
(6) 020032 502178: 
(10) 020032 005237 002260 ; INC LUNIT 
(7) 020036 50216$: 
(7) 020036 023701 002260 CMP LUNIT,R1 
(9) 020042 003107 GI 502 
2312 020044 LET R2 := LUNIT SHIFT 1 
(5) 020044 013702 002260 MOV LUNIT,R2 
(8) 020050 006302 ASL R2 
2313 020052 LET FLAG := #0 
(4) 020052 005037 002240 CLR FLAG 
2314 020056 PRINTF #DOORSW,LUNIT 


I 
CZLNAAO LNO1 TEST DNMAC X24. 07-563, 12=JAN-83 08:16 PAGE 19-27 SEQ 0073 
CZLNAA.P11 12-JAN-83 08:16 READY LINE INTERLOCKS TEST 8 

(8) 020056 013746 992260 MOV LUNIT,=(SP) 

(7) 020062 012746 021247 MOV #DOORSW,=(SP) 

(6) 0 9066 012746 000002 MOV Herts) 

(3) 020072 910600 MOV SP-RO 

(4) 020074 104417 TRAP CSPNTF 

(4) 020076 062706 000006 ADD #6,SP 

2315 020102 PRINTF #D00SwW1 
(7) 020102 012746 021324 MOV #D00Su1 r-(SP) 

(6) 020106 012746 000001 MOV a, =(SP) 
(3) 020112 01060 MOV RO 
(4) 020114 104417 TRAP eS eNTE 
(4) 020116 062706 000004 ADD #4 ,SP 

2316 020122 GMANIL READY, FLAG, 100000, VES 
(3) 020122 1044463 TRAP _— C$GMAN 
(3) 020124 000404 BR 
(4) 020126 002240 .WORD FLAG 
(5) 020130 000120 “WORD TSCODE 
(5) 020132 006752 "WORD READY 
(5) 020134 100000 “WORD 100000 
(3) 020136 10004$: 

2317 020136 If #B1T15 ah be at tit THEN 
(6) 020136 032772 100000 002322 BIT #B1T15, aLPCSR(R2) 
(10) 020144 001431 BEQ 50221$ 

2318 020146 PRINTF tt i LUNIT 
(8) 020146 013746 002260 MOV LUNIT,<(SP 
(7) 020152 012746 021354 MOV #DOORDY, ot SP) 

(6) 020156 012746 000002 MOV #2, (SP) 
(3) 020162 010600 MOV SP-R 

(4) 020164 104417 TRAP — CSPNTF 
(4) 020166 062706 000006 ADD #6,SP 

2319 020172 PRINTF #DOORD1 
(7) 020172 012746 021423 MOV #DOORD1,-(SP) 

(6) 020176 012746 000001 MOV #1,-(SP) 
(3) 020202 010600 MOV SP.RO 
(4) 0202046 104417 TRAP CSPNTF 
(4) 020206 062706 000004 ADD a4 ,SP 

2320 020212 GMANIL READY, FLAG, 100000, YES 
(3) 020212 104443 TRAP  C$GMAN 
(3) 020214 000404 BR 10005$ 
(4) 020216 002240 .WORD FLAG 
(5) 020220 000130 ~ WORD TSCODE 
(5) 020222 006752 “WORD READY 
(5) 020224 100000 “WORD 100000 
(3) 0920226 10005$: 

2321 020226 ELSE 
(4) 020226 000411 BR 502228 
(3) 020230 502218: 

2322 020230 LET ERRTBL(R2) := ERRIBL(R2) + a1 
(7) 020230 005262 003060 INC ERRTBL(R2) 

2323 020234 LET L$LUN := LUNIT 
(4) 020236 013737 002260 002074 MOV LUNIT,L$LU 

2324 020242 ERRHRD 10, DOOSWI 
(4) 020242 104456 TRAP CSERHRD 
(5) 020244 000012 .WORD 10 
(5) 020246 003530 “WORD DOOSWI 
(5) 020250 000000 “WORD 0 


CZLNAAO LNO1 TE 
CZLNAA,P11 
2525 02025 
(4) bs6 5 
2326 02025 
(4) 020252 
2327 020260 
(5) 020260 
(4) 020262 
2328 020262 
(4) 020262 
2329 020070 
2330 020332 
2531 020356 
(3) 620336 
(3) 020340 
2332 
2333 
2334 
2335 020342 
2336 020400 
2337 020455 
2338 020535 
2339 020577 
2340 020666 
2341 020706 
2342 020770 
2343 021055 
2344 021114 
2345 021201 
2346 021247 
2347 021324 
2348 021354 
2349 021423 
2350 
2351 
2352 
2353 021456 
(3) 021456 
(3) 021456 
2354 
2355 021460 
2356 
2357 
2358 021460 
2359 
2360 
2361 
2362 
2363 
2364 
2365 
2365 
2367 
2368 021460 
2369 
2370 
2371 
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J. 6 
12-JAN-83 08:16 PAGE 19-28 SEQ 0074 


READY LINE INTERLOCKS TESI 8 
ENDIF 
502228: 
LET @LPCSR(R2) := #00 
MOV #00, aLPCSR(R2) 
END INC 
BR 50217 
2208: 
LET OUTBUF := #14 
MOV #14 Ph TBUF 
yy tp 2 Bo al 
JSR P ET 
EXIT 
CSEXIT 
«WORD 10017-. 
.NLIST BEX 
NILK: .ASCIZ /READY LINE INTERLOCK TEST 9/¢°2><12> 
PAPRSW: .ASCIZ /%ZN%ZAREMOVE ALL PAPER FROM BOIH PAPER TRAYS%N/ 
PAPSW1: .ASCIZ /%AWITH EXCEPTION OF ONE PER TRAY ON LUNIT %D2%N/ 
PAPSW2: .ASCIZ /%ATO CHECK PAPER OUT INTERLOCK. %N/ 
PAPRDY: .ASCIZ /ANZARE STORE PAPER CLEAR, PLACE LUNIT %D2%A ON LINE. 2N/ 
PAPTST: .ASCIZ /PAPER OUT TEST/<12> 
HANRSW: .ASCIZ /%NXZATURN PABER TRAY HANDLE COUNTER CLOCKWISE TO%N/ 
HANSW1: .ASCIZ /%AHORIZONTAL POSITION UNTIL IT STOPS. ON LUNIT %D2%N/ 
HANSW2: .ASCIZ /%ATO CHECK INTERLOCK SWITCH. %N/ 
HANRDY: .ASCIZ /%NZARETURN PAPER TRAY HANDLE TO VERTICAL POSITION, %N/ 
HANRD1: .ASCIZ /%ACLEAR, PLACE LUNIT %D2%A ON LINE. %N/ 
DOORSW: .ASCIZ /%NZAOPEN FRONT DOOR ON LUNIT xb 24h TO CHECK / 
DOOSW1: .ASCIZ /%NXAINTERLOCK SWITCH. %N/ 
DOORDY: .ASCIZ /%NZACLOSE FRONT DOOR ON LUNIT %D2%A, %N/ 
DOORD1: .ASCIZ /%ACLEAR, PLACE ON LINE. 2N/ 
EVEN 
.LIST BEX 
ENDTST 
L10017: 
TRAP  CSETST 
ENDMOD 


-SBTTL INTERRUPT SERVICE ROUTINES 
BGNSRV 


s+¢ 
INTERRUPT VECTORS ARE ESTABLISHED DURING INITIALIZATION 
sPOINTING TO THE BASIC ROUTINES WHICH 

;SET UP THE UNIT NUMBER CAUSING THE INTERRUPTS. 

ae NUMBER IS RETURNED IN R2 

K20 
INTOO: .REPT 16. 
SETPR] #PRIO4 
PUSH R2 
LET R2 := 


K_ 6 
Soon LNO1 TEST DNMAC X26.07-563 12-JAN-83 08:16 PAGE 19-29 SEQ 0075 


ZLNAA.P11 12-JAN-83 08:16 INTERRUPT SERVICE ROUTINES 
237 INLINE <JMP 1ODRV> 
378 K=KX+2 
2374 .ENDR 

(4) 021460 012700 000200 MOV #PR104,R0 
(4) abe 104441 TRAP CS$SPRI 
(3) 021466 010246 MOV R2,-(SP) 
(5) 021470 012702 000000 MOV #Xx,R2 

(3) 021474 000157 004464 JMP 1ODRV 

(4) 021500 012700 000200 MOV #PR1I04,R0 
(4) 021504 104441 TRAP CS$SPRI 
(3) 021506 010246 MOV R2,-(SP) 
(5) 021510 O1e706 000002 MOV #X,R2 

(3) 021514 0001 004464 JMP 1ODRV 

(4) 021520 012700 000200 MOV #PRI04,R0 
(4) 021524 104441 TRAP CS$SPRI 
(3) Sel 2¢8 010246 MOV R2,-(SP) 
(5) 021530 012702 000004 MOV #X,R2 

(3) 021534 000137 004464 JMP IODRV 

(4) 021540 012700 000200 MOV #PRI04,R0 
(4) 021544 104441 TRAP CS$SPRI 
(3) 021546 010246 MOV R2,°(SP) 
(5) 021550 012702 000006 MOV #X,R2 

(3) 021554 000137 004464 JMP IODRV 

(4) 021560 012700 000200 MOV #PRI04,R0 
(4) 021564 104441 TRAP CS$SPRI 
(3) 021566 010246 MOV R2,-(SP) 
(5) 021570 012702 000010 MOV #X,R2 

(3) 021574 000137 004464 JMP 1ODRV 

(4) 021600 012700 000200 MOV #PRI04,RO 
(4) 021604 104441 TRAP C$SPRI 
(3) 021606 010246 MOV R2,-(SP) 
(5) 021610 012702 000012 MOV #X,R2 

(3) 021614 000137 004464 JMP 1ODRV 

(4) 021620 012700 000200 MOV #PRI04,RO 
(4) 021624 104441 TRAP C$SPRI 
(3) 021626 010246 MOV R2,-(SP) 
(5) 021630 012702 000014 MOV #X,R2 

(3) 021634 000137 004464 JMP 1ODRV 

(4) 021640 012700 000200 MOV #PRI04,R0 
(4) 021644 104441 TRAP CSSPRI 
(3) 021646 010246 MOV R2,-° (SP) 
(5) 021650 012702 000016 MOV #X,R2 

(3) 021654 000137 004464 JMP 1ODRV 

(4) 021660 012700 000200 MOV #PR104,R0 
(4) 021664 104441 TRAP CSSPRI 
(3) 021666 010246 MOV R2,-(SP) 
(5) 021670 012702 000020 MOV #X,R2 

(3) 021674 000137 004464 JMP 1ODRV 

(4) 021700 012700 000200 MOV #PRI04,R0 
(4) 021704 104441 TRAP CSSPRI 
(3) 021706 010246 MOV R2,-(SP) 
(5) 021710 012702 000022 MOV #X,R2 

(3) 021714 000137 004464 JMP 1ODRV 

(4) 021720 012700 000200 MOV #PR104,R0 
(4) 021724 104441 TRAP CS$SPRI 
(3) 021726 010246 MOV R2,-(SP) 


L_ 6 
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EST 
53 yan-83 08:16 NTERRUPT SERVICE ROUTINES 


CZLNAA.P11 

(5) 0 1730 Bi e106 000024 MOV #X ,R2 
(3) 021734 p08) 004464 JMP IODRV 
(4) 021740 012700 000200 MOV #PRI04,RO 
(4) 021744 104441 TRAP C$SPRI 
(3) 021746 O 19688 MOV R2,-(SP) 
(5) 021750 O12 06 000026 MOV #X ,R2 
(3) 021754 0001 004464 JMP LODRV 
(4) 021760 012700 000200 MOV #PRI04,R0 
(4) 021764 104441 TRAP C$SPRI 
(3) 021766 010246 MOV R2,-(SP) 
(5) 021770 012702 000030 MOV #X Re 
(3) 021774 000137 004464 JMP IODRV 
(4) 022000 012700 000200 MOV #PRI04,RO 
(4) 022004 104441 TRAP C$SPRI 
(3) 022006 010246 MOV R2,-(SP) 
(5) 022010 012702 000032 MOV #X,R2 
(3) 022014 000137 004464 JMP 1ODRV 
(4) 022020 012700 000200 MOV #PR104,R0 
(4) 022024 104441 TRAP C$SPRI 
(3) 022026 010246 MOV R2,-(SP) 
(5) 022030 012702 000034 MGV aX ,R2 
(3) 022034 000137 004464 JMP IODRV 
(4) 022040 012700 000200 MOV #PR104,R0 
(4) 022044 104441 TRAP C$SPRI 
(3) 022046 010246 MOV R2,-(SP) 
(5) 022050 012702 000036 MOV aX ,R2 

2473 022054 000137 004464 JMP 1ODRV 
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CZLNAAO LNO1 TEST DNMAC 
CZLNAA.P11 12=JAN-83 08:16 CLOCK SERVICE ROUTINE 
2377 -SBTTL CLOCK SERVICE ROUTINE 
2379 SUPDATES THE COUNTER AT A RATE OF 16.67 MILLISECONDS PER TICK 
2380 TAND UPDATES A SECOND COUNTER WHEN THE FIRST OVERFLOWS. 
382 
2383 022060 BGNSRV 
2384 922060 CLKTCK: SETPRI #PRI06 
(3) 022060 012700 000300 MOV #PR106,RO 
(3) 022064 1046441 TRAP CSSPRI 
2385 022066 IF TICK EQ #0 THEN 
(6) 22066 005737 022134 TST TICK 
(10) 022072 001905 BNE 0223$ 
2386 022074 LET TICK := #60. 360 TICKS PER SECOND 
(4) 022074 012737 000074 022134 MO #60.,TIC 
2387 022102 LET TIME := TIME + #1 
(7) 022102 005237 022132 INC TIME 
2388 022106 ENDIF 
(4) 022106 502238: 
2389 022106 LET TICK := TICK = #1 ;BACK UP SECOND TIMER 
(7) 022106 005337 022134 DEC K 
2390 022112 IF CLKTYP EQ #2 THEN 
(6) 022112 023727 002266 000002 CMP CLKTYP, #2 
(10) 022120 001003 BNE $ 
2391 022122 LET @CLKCSR := #100 
(4) 022122 012777 000100 160142 MOV #100, aCLKCSR 
2392 022130 ENDIF 
»{$} 022130 50224$: 
2394 022130 ENDSRV sAND EXIT 
(3) 022130 110021: 
m3} 022130 000002 RTI 
2396 022132 000000 TIME: .WORD 0 
2397 022134 000000 TICK: cWORD 0 
2398 -SBTTL HARDWARE PARAMETER SECTION 
2399 022136 BGNMOD 
sg2 
++ 
2402 ZTHIS SECTION INCLUDES THE QUESTIONS WHICH REQUEST ‘HE OPERATOR 10 
2403 sFURNISH THE HARDWARE INFORMATION NECESSARY TO BUILD THE HARDWARE 
2404 ?P=TABLES. 
2405 3 
2406 — 
2407 022136 BGNHRD 
(3) 022136 000010 .WORD L10022-LSHAR? /2 
osde 022140 LSHARD:: 
2409 022140 GPRMA  GETADR,0,0,160000,177516, YES 
(4) 022140 000031 .WORD TSCODE 
(4) 022142 022160 ~ WORD GE TADR 
(4) 022144 160000 » WORD TSLOLIM 
(4) 022146 177516 "WORD TSHILIM P 
2410 022150 GPRMA GETVEC,2,0,110,770, YES 
(4) 022150 001031 ~ WORD TSCODE 
(4) 022152 022175 “WORD GETVEC 
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¥ paar %24.07-563 12-JAN-83 08:16 PAGE 19-32 SEQ 0078 
12-JAN-83 08:1 HARDWARE PARAMETER SECTION 
000110 -WORD TS$LOLIM 
000770 eWORD TSHILIM 
ENDHRD 
EVEN 
L10022: 
eNLIST BEX 
050114 030461 040440 GETADR: .ASCIZ /LP11 ADDRESS/ 
111 052116 051105 GETVEC: .ASCIZ /INTERRUPT VECTOR/ 
bane 
» SBTTL SOFTWARE PARAMETER SECTION 
{THIS SECTION INCLUDES THE QUESTIONS WHICH REQUEST THE OPERATOR TO FURNISH 
sTHE SOFTWARE INFORMATION NECESSARY TO BUILD THE SOFTWARE P-TABLES. 
BGNSF I 
000010 «WORD L10023-L$SO0F T/2 
LSSOFT:: 
GPRML MGTINT,O,1,YES 
000130 -WORD TS$CODE 
022240 -WORD MGTINT 
000001 WORD 
GPRMD GETMAX,2,0,377,1,255..,YES 
001052 ~ WORD TSCODE 
022276 -WORD GETMAX 
000377 -WORD 377 
000001 -WORD TS$LOLIM 
000377 eWORD TSHILIM 
ENDSFT 
-EVE 
L10023: 
-NLIST BEX 
052522 020116 040515 MGTINT: .ASCIZ /RUN MANUAL rhteey sd gy TESTS/ 
052501 047524 051104 whirg wees /AUTODROP ERROR COUNT/ 
022324 EVEN 
000020 PATCH: .BLKW 20 
LASTAD 
EVEN 
000000 -WORD 0 
000000 -WORD 0 
LSLAST:: 
ENDMOD 
000001 END 
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CZLNAAO LNO1 TEST me X24 .07-563 
CZLNAA. PTA ide yan-83 OB: : 
CLKVEC 00 4 +t} 1419* 
CLOCKP goss! 7 gy 1415 
COUNT # 1769 
COUNTD | 00456 Ore 1078* 
CR = pots G 'So3e 2141 
CSRERR Boe 52 97\# 1561 
CTLEND 00 $39 1198 1503" 
CTLLOP 00472 1196# 1268 
CURADD 002516 444 1130 
CURCNT 002716 9334 1129 
$au_ = 000052 6594 
CSAUTO= 0 1 6594 731 
RK = 000022 6594 
C$BSEG= 000 6594 
SUB= 000002 6594 
C$CEFG= 000045 6594 
C$CLCK= 00006 6598 1412 
CSCLEA= 1 659" 1525 
C$CLOS= 00003 6594 
C$CLP1= 000006 6594 
CSCVEC= 000036 6594 1518 
CSDCLN= 000044 6594 1302 
C$D0DU= 000051 6594 
SORP7= 000024 6594 
$ou = 000053 6594 
CSEDIT= 000003 6594 680 
CSERDF= 000055 6594 
CSERHR= 000056 A ity 1035 
CSERRO= 000060 6594 
CSERSF= 000054 6594 
CSERSO= 000057 6594 
CSESCA= 000010 659" 
CSESEG= 000005 6594 
CSESUB= 000003 6594 
CSETST= 000001 6594 1661 
CSEXIT= 000032 6594 1348 
C$GETB= 000026 6594 
C$GETW= 00002 6594 
CSGMAN= 000043 6594 1368 
CSGPHR= 000042 65948 1317 
C$GPLO= 000030 6594 
C$GPRI= 000040 6594 
CSINIT= 000011 6594 1455 
CS$INLP= 000020 6594 
C$MANI= 000050 6594 1357 
CSMEM = 00003 6594 
C$MSG = 000023 6594 
CSOPEN= 000034 6594 
CSPNTB= 000014 6594 
CSPNTF= 000017 6594 1297 
2297 2298 
CSPNTS= 000016 6594 
CSPNTX= 000015 6594 
($010 = 000377 6594 
C$RDBU: 000007 6598 


c, 
JAN=83 08:16 PAGE 20-1 
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12- 
CROSS 
1420 1428* 
1358 14 - 
1807" 1979« 
1081 1082« 
2220 
11318 BP 
1136* 1145* 
1423 
1040 1046 
1727 1769 
1440 1632 
2255 2277 
1374 
2205 
1301 1354 
2301 2302 


1518 


1561 


1522 


1578 


1588 


2097 
1875 


2316 


2168 


2788* 
1254 


1612 


1295* 


1641 


2252 


1378 


2220 


2177 


2253 


1511 


2230 


2207 


2254 


2287+ 


2269 


2210 


2275 


SEQ 0080 
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CZLNAA,P11 ~JAN-83 08:16 CR 


CSREFG= 000047 
CSRESE= 00003 
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$ 1622 2374 2384 


oO 
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DIAGMC= 000000 661 
DIGITS 0044 1 11064 
DONE 01174 1 17648 
DOORDY 021354 2 23488 
DOORD1 021423 é tobe 
DOORSW 021247 2 3468 
DOOSWI 003530 # 2324 
DOOSW1 021324 2 23478 
DROPED= 040000 # 1208 1294 1405 1510 1614 
DROPIT 005314 1 12944 
DVSTR 016430 2 21828 
EF.CON= 000036 G a 
EF .NEW= 000035 G a 
-PWR= 000034 G e 
EF .RES= 000037 G # 1338 
EF .STA= 000040 G ” 1336 
N 010174 16134 1642 1649 
ERFLG = 000400 10394 
ERRCOD 002302 87# 1030 1056* 1160" 1204 1213 1226 1231" 1239 1365*  2285¢ 
ERRFLG 002304 8898 2240" 2257* 2265 2266 2273* 2284* 
ERROR = 100000 8534 1055 1159 1214 1233 1510 1558 1575 1585 1614 2286 
ERRSVC 003056 942# 1161 1243 1281" 1344* 1439 1623* 1628" 1689" 1709* 17148 17428 17538 
1756* 1758* 1801* 1832" 1873* 1978 1983" 1986" 1990" 1992" 1995" 1997* 1998s 
2005* 2055" 2076" 2081" 2148 2149 21508 2151* 21528 2155* 2154" 2155" 2156* 
2157* 2158* 2159% 2160" 2161* 2162" 2165* 2166* 2167* 2169% 2171* 2175* 22368 
2259* 2263* 2268* 2329 
ERRTBL 003060 G 943@ 1033* 1038" 1044" 1052 1298* 1377* 1512 15598 1577* 1586* 1610* 1639% 
2219" 2229* 2270" 2305* 2322 
ERR11 010504 1586 16574 
ERR12 010560 1641 16584 
ERR15 910643 1612 16594 
vL = 000004 G 8164 
ESEND = 002100 6594 
ESLOAD= 000035 6594 680 
fF = 000016 G "goon 2143 
FLAG 002240 Ao 1364 1368 2212e 82251" 2255 2276" 2277 2295" 2299 2303 2313¢ 2316 
FLAGDA 004456 1072e 1081 1084* 1093 11044 
FSaut0= 000020 e598 727731 
FSBGN = 000040 659" 677 685 727 802 806 1323 1332 1333 1348 1440 1500 1527 
1530 1541 1632 1638 1647 1661 1663 1668 1683 1716 1727 1729 1732 
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CZLNAAOQ LNO1 "5! DNMAC X24.07=563 12=JAN-83 08:16 

CZLNAA,P11 12=JAN-83 08:16 CROSS REFERENCE TABLE == USER SYMBOLS 
1738 1761 1769 1771 1775 1798 1875 1948 1956 1954 1970 2009 033 
a ee 

FSCLEA= 000007 6598 809 1525 

FSoU_ = 000016 659" 

FSEND = 000041 6598 677 731 804 806 1323 1332 1348 1440 1455 1525 1362 1530 
1541 1632 1643 1650 1661 166 1668 1683 1716 1727 1729 1732 1738 
1761 1769 1771 1775 1798 1875 1948 1950 1954 1970 2009 2033 2034 
2038 048 $083 $927 $032 2102 2135 2177 $138 2190 2193 2203 2207 
2210 331 $23 355 394 2399 2411 2427 2437 

FSHARD= 000004 6598 407 411 

FSHW = 000013 6598 716 $2 

FSINIT= 000006 6594 1333 1455 

FSIMP = 000050 6594 1348 1440 1632 1716 1875 2009 2083 2177 2207 2210 2331 

FSMOD = 00000 6594 677 802 806 1323 1332 1527 1530 1663 1668 1729 1732 1771 
1775 1950 1954 034 2038 2102 2190 2193 2355 2399 2437 

FSMSG = 000011 6594 

FSPROT= 000021 6594 685 689 

FSPWR = 000017 6594 

FSRPT = 00001 6594 

FSSEG = 00000 6594 

FSSOFT= 000005 6594 2424 2427 

FSSRV = 000010 6594 1638 1643 1647 1650 2358 2383 2394 

F$SUB = 000002 6594 

FSSW = 000014 6594 740 749 

FSTEST= 000001 659" 1541 1661 1683 1727 1738 1769 1798 1948 1970 2033 2048 2097 
2135 2188 2203 2353 

GETADR 022160 2409 24138 

GETMAX 022276 2426 24308 

GETVEC 022175 2410 24148 

G$CNTO= 000200 6598 

GSDELM= 000372 6594 1228 1346 1568 1599 1609 

G$DISP= 000003 6594 

GSEXCP= 000400 6594 

G$HILI= 000002 6598 

G$LOLI= 000001 6594 

G$NO = 000000 6594 

GSOFFS= 000400 6594 1368 2255 2277 2299 2303 2316 2320 2409 2410 2425 2426 

GSOFSI= 000376 6594 1368 2255 2277 2299 2303 2316 2320 2409 2410 2425 2426 

G$PRMA= 000001 6594 2409 2410 

GSPRMD= 000002 659% 2426 

GSPRML= 000000 6594 1368 2255 2277 2299 2303 2316 2320 2425 

GSRADA= 0090140 6594 

= 900000 6594 

G$RADD= 000040 659% 2426 : 

GSRADL= 009120 6594 1368 2255 2277 2299 2303 2316 2320 2425 

G$RADO= 000020 59# 2409 2410 

GSXFER= 000004 6598 

G$YES = 000010 6594 1368 2255 2277 2299 2303 2316 2320 2409 2410 2425 2426 

HANRDY 021114 2301 23448 

HANRD1 021201 2302 23454 

HANRSW 020706 2296 23418 

HANSWI 003455 9748 2307 

HANSW1 020770 2297 23428 

HANSW2 021055 2298 23438 

HOE §== 100000 G 8168 
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17718 
2265 


2260* 2261 
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CZLNAAO LNOI TEST DNMAC X24.07=563 12-JAN-83 08:16 © 
CZLNAA.P11 12-JAN-83 08:16 CROSS REFERENCE TABLE == USER SYMBOLS 
LPINTR 002756 936# 1395" 1396 1480 
LPVEC. 002362 9i2e# §=1389* 1396 1480 1596 1607 
LSTCNT 002244 8664 
LUNIT 002260 1 1547* 1550" 1552 1556 1560 1576 1587 1611 1640 1976* 1977 1978 
198 1986 1990 1296 1995 1997 1978 2005 2216" 2217 2225* 2226 2227 
sso" 22448 $602 $$¢ $633 $$27 $$$ $539 2275 2278 2292* 2293 2294 
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22 B2e2se2e2e 2222222 RRRRReB SFB VeeVez2ezeze2VzVexuzwee 
So WEMOO-O WR Modmd-O WEMODO—O NOR MOP ORL TO 


3 S3r323 RZ22e2e2ea2ez2 B2e2eze2ee2n 2222222 RZRRReVewz BVVeeVeVzezaizez 
a -o w OD AO KNMOWOKAO MmMOWOK- CO NONOK AO MNOVWUITr ODOM OMT 
oo wooo FIR NOOO WIR NOOO WTR NOOO FTRNOOO woOrwuor.-On-O- oO 
Mw OF MMOON OCF MMOON OK MMOON OK MMNOOW SK MNDODAN COOK WUOUMTNMOR OO 
QR SOOO OK NM SOMO OOK NM SOOO CEN KC KrrK KG SOO C EN SK SCS Se CC ee eee 
2 BBReBeeet BRR e2eee BV2eszz2z2e2 BV 22222 RZRRBVVeVewz BVVVVeVez2VVze2eVez 
WW SFWWWNAVOTR FONT SOV wy TMM ww TFTOMONUUATAN FO TR OMMMNT TOO 
wv wvvwwnmow weersrmo wr smo? SIT IMOW rvrersrmowr vO OF. - OF - OOW 
NM SCOKMMOANW OK MMOON CK MMOAN OK MNOOW SKMNDANM COC UUMTNMNOR OO 
QR MM MC KOM SOOO MON CK KOK EN SCC KKK Kw ee el ce el oe cee DS cl el el cee ce ee ee ee ee 
& R22 BRR BRVVVee2sz BRBVVeeXV BVVVVVVsw_ BVVVVVVVeVezVweVe 

o ro OO orvKO BOSOTRA BOMWMWOLKKRA ~RODOLTRA Sm omy sr MVonN 
CRN MTR KK RN OMT RK KK RN MOTOR —-—OVOK-OCOfD 


RRR 22222 2222 22222 RRRR2A2swZ BZ BFezVeezeeeVeeze 
c KRMMOOKRW MOTOOR.-OO- OCOD 





AOIKVUNOAN COOK WVUNUMY THOR DO 


See CC CEN SSC Ce KKK Ke Ce KK 


a FSse Be Be ca RRBVRVRVVeeVee2eeezv_ezezee 
oor. ~wVOwn coma 


SRARTIAISAIRSIATSL ABT IAISAAREIATIAL ART IAISAASSAAASITISSe 
Ree RR Senor RDO RR DON oe RROD AOR ODNDOOR RK HR 


ODD i ON ON Ge NN 6 NN BB OC CCE ORNC CC Fe eee eee 


fal FS Fated Badd « 


$OPRO 


SEQ 0106 


22sec se e2eeeaeaeaaea RRRVVeeeseeeseeesenet® B#2seee 2 fee B22 28 
K—OOD KBRTONOR— Dre Khe ORR K— KMOWOCKHOCOOr-—-r- MODOeN MODERN MOD 
ANNES One CTKHOKROOWNM COCK RK NMIMTNMNOODC Ow KNTNON KUT MOON Kwes>wn 
Seah BRRRRRRRBBRBeeBBB BVVVesssVQeVeVeeee BHReVeesee BF2eseee Lee 
RVR RR OCMMRK VNTR NORM NMOD—KIDOOMVETROWM OMe —eTO SMe —TO CM 
Suc KRMONOODO—OR. Oe KR — KMOMTOMMNOCORRK KO AMOOMU AMOGMu AmMac&k 
SNM ORK RK TMT THOR DOWM OK RK NMMTNMODOONUNM OM TFNON ONMTFNON Omsw 
RIN EE ONION OE BMH HEE NINININ MM OOK NN MMR KEN Oe 
RIS SSISAsSaenros RRVVeVeBVBVeVeeeezeeetz BVRRVeeeezeaagagaggzue ee 

= FODOMOTOMOO MCR OMMOWFMRARAORWM AFOUMOOMASOUMDOOMOOUMNSO 

~mow wh gs etd pan 4 BRMONTOMIOOSME O— OF DMODUVUDOMEDOUNOOMOW 

OR KOM THOR DOWNM OK KE NMMTNMOROOCNN ONMTHONMONTNONMON STS 


RRRReeeeeeeeee2k BVRVeeeeeeVeeeeee2e 
--OC Oy OVO KOOMMNMEF TR OOM ONC 
KRMNOTK—OMMNK—OWMOTOQ  RMNM — DV DIK O— OF DOr ORO RK VOR OR ORK— NOK Or 
DKK CUIPIM FHOOR. DOS TN OE HK KIPMIMN FT NN OR. DOCU CUMOCUMMBDEUMOCUMMBDOUMOCMIWN 
NINO NINN BB MMM NN CO MM ORK NN OOOO KK 


4a 
4a 


RZReeeezazazazezu2ze2en L222 
OOASMMAMOVDARK KK MOT OOMUS 
LOM K—AMMNOOUOT OF COMME DOM - OT TMOOMNO OR OCR ORK Ke OCK ORK KOCK. 
OK HK CIMIMFTMOR. DOK WIT CORK NOMS AWM OR. DOK CTUMOCUMTOR CUMOCUMIAR. CUMOCUMIN 
IONIC  ONINIOUININ SB OOK NN CO OM OO EK NIN OO OO 
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EFINAALPIT 13-sane83 8:16 


2222 PF FPAPERRERERE ERED RES beth S: RZ RR B22 22222 2VT22222 
KMON NOP HOWMMR MMOEOAMR OMA OT Th ODOMNOOO-— COON OWNORK— FANON 
NOW FOP DON - DHOOM TOOT OTR. - OR. — OWOT TOUT TR NORGE 
SOUP OOD CUM FONE ODO — FUIEUIM OO = MUIUM TAM OR. DOK UNUMO RK MMOOWOe™M 
COON ONIN ee EE ONIN MO MEK NN OK 


Qweomn 

OIG OO  ONIENINN GB MEO NN CH MOOK NN OO KK 
> +} bbe FP EDRERRES REE ae RER EL ED LS! 

No oa FR DR HK ACURA. AMOR FFM OMT TR MCUM TOR 

ee MDT — OR &— — DT MOMUDNMO T= OF —- OOK Or Or 


OOK NOM TOWN ARHKNAMOO-—NNMSARORDO-NNMO-— MNO 


o~mrnm 
CORON ONION NOUN NIN GF MMM NN HR HM KEK NN OC OO 


SRSA SIIMSRSSMSNKSKY 
tO Mote 


PVA ST OI Oe oe OO SAMSON SSOP ODNOGOHS im Od 


SSEA SAASASASRSSSA SAAT AAAADRe SOKGSL AGUS STRGSST STAD OT OI 
AS MADODPOMMASCSOD OMMAS 


RRRBVeaeereeeee 
OR SMMOOOR WMMOS 


SEQ 0107 


a 
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pit "ES sanees 08216 


CZLNAAQ 
CZLNAA, 


22 S22 See BSkReeee B2Beee2e2 282 822 B22 2222 &#& 22 2eaeae2ee 
Ku =— bv te F4 —ON@Dormy =—ON@DOrRN OW OFO CGOKRUMMN Or or~-ooorn 
NEN mM CORN MODOWRW MODOVERN MO WERO Oe-Oe- OO MO MMMmOoownnm 
DWM K€ VWTMONM SK WwTHONM | WwTNMONWM WO NM KEK MMROW C10 -—NuaTowmonw 
COIN OOO EK EOIN OC ROO ENN BK BEN RRR ENN Ke Ck ek ok ok al YL) 

&& Bf eke BeBe BVeeVeeetz BVVVeezwe BVeeee #28 RR 2e2e2aee 
| ance MOOmr MOOK—K——K— OMORCRK KK NUMONOO OOO OO CMO SmMmAUurwnorm 
oom TMONM OVTHOONM OVTMONWM NOMOUMN &—MMmnromw WOM o~umrnror 
SON HOO OOK ROORKEE NIN MOREE KON MONK EKEN MRK ENN SKK ek ok el ele OL) 

= RRR Sse eeee2e2h BVRVeVeVeet BRVVeeze HB2see2en Be 2222222 

— AWUMDODOMEOSOCUMOOM— PAUMOOM— OFFNOR— ODOMoOrw ovnw —noon-ww 
SOK K— DMODWWUVDAOMODOCeR— DBMOWOen— WOD—NO MMOVUOCOM wow SmMmoanorw 
Dw OVMTMOWUMOWTNHOWUM OFVTMOONUM SUMMON K—TMrOoONm NWN oNuweswnr Or 
ONIN INE OOO EON HORE NN BONO EK NN RRO ENN KK Ww ek eek ok eek el LO | 
R22 BRR RBkRRekBeeeskeez BFBVVeVze2e BVZVZee2e BB VeeeVeeeez RZ22R222ez 
Own FTOOMMEONRTOOMOTN TOOMOTN O9FRUNK DD HOM KNOT ~wTMOowonm 
SOO DWVOWHK--DWOWCOTOO BVOOTOO Sm KVUN NMMOUOCOMO—ke— COMmrm FOr 
hReM OVTHOWUMON THR KEM ONTRR REM CMMOMN Km OOMmOMmm OCUMeMnr Ou 
CONN INI EME KON MMM EK ONN MONO RK NN RMR RM EK NINNE Kw Ch ae eek ek ee eel OD 
Zee BRR e2ee2eee2eekez BVVVeVez LFVRVVeeVee BVVBVVeV2ee2V2z 222 a2z2ze 
R.A Cr PR OR CUS PRR OO CUT TIRE NU OOORD TOMNDOOMNAUNOCO MWOvoor ww 
SRA DO OROK VOR OR TRO DK OKnTRAO K—OCOOkKK— WHR OOUD- OO DOME FOr 
RON OOMMOIUMONMIMR ON OCUMMR ON NCMMOMN RK UMOOUMOmM OUMnAr Oru 
SON ENN EK OR KOEN HR ROOK NN BONE EN RK KKK NINE Kw Cl oe ee ee eT 
332 RZRee2esBeeeeeeelk BfB2VeVeeVeez BVBZVVez2zz_ BVVVVVee2VZew 22RZ22z2e2ez 
TN @DM©6riwo MUNGCFTON BDMMUNG STO DrRORAQA AwsSMNO— Mr Or O HNO OO 
Ore KOCK OK—KKROGCKRORD ROCK ORA OWOSSO wrKrOROwuoMmnd over ono 
ROT COMM CUMOCUIMIMR OT OTUMMR ON NNER TN RK UNO CUMAMmCN SOOUMMAR OCU 
COIN NIN OOO OOM HOMO ORK ON MONO KN RK RK KK NNE Kw err reK KN 
S33 RRRRee2ekRQeeeeVeekz F#V2eVVeVze BVRVeeev BLZVVReeezzze RZ RZRar2r2eae 
ro KROME FMK—ROMRTOO BOMR TOO Re OMO DOM ss —— ANN K— Oe 
OOD KRMNOOO ——-KRNDOOWOD K.MNDOOWOD SWOOMO MMBDBOoONuawdo nvr O- Oe 
RON CORK MMR CMO MMR OTW ORK MMR ONW KE NVE FRE KUT OONMER MCN SOUMAr OCU 
COON EOIN OOO KON HMO OOK ONIN COENEN KK KKK NNeE Kw wrernrnr 
a2 RSReeeeeseezeeeehe B22e2e22 2BRZ2Zeea S222 222222 Rs RReRRRRH 
- NVODOPKTANMNVOSK— MOD MVOOK—™M OrDeTO MOK NO OrwO ~ OOOmMao~7 TF 
oor KY MNODOORYFMOOr FOE NMOOM De wT SMMOM—we- wu oe Oe COOr 
RON CORK MMR RK MOK MMFOW ORK MUFONM HK NNR TO OMT OONUMeR mr o OK MN Ae 
SOD ONIN COOK ON MOO OK NN HONE KN KOK KKK NNE Kw N errr n wu 
2°23 RBReBeeeeseeeBee2a BBBeseee BVeezee2een B22 B22 22222 AS 222 2Be2eez 
o- ME MDOMMUAL MBO OO W-MCODO.O K—COOOMR —OeKr Ne Ow Co Mmuonmmcucy 
o ATMO OMWTRMO OM WTR MOOM FRR KO OMMMNK RK Te co ~O—VOOr 

NM OK KMIMDODONMOEKMMOON COE MMOON S&F TN TO ONT OONMe wo a Or MeO 
CON NIN MO OOK ON HMO OOK NN SKN KN KKK KK NINE Kw - errr eK Kw 


2B BRBVezew BBVVezeVezeze <a 

So AOMAMMO KRM COFAOmMo Nm 
ao NUNS DMVOURONMO wo MNDOUOK™ 

OK MWMNOON &K§ FNEMO OMT OOK Mew o 

- 


SPS SCC OK NN SCENE KN KKK KK NNER Kw 


22m BRB e2e2ezeezezeee2ehz B2BB22z2zB2zw BVzVs2V2e2 BBVT 222 2BZ2Vz & z22RR 2222 
OTN TOMVUCCOCOTINMUATH TOMVUATN MOMOMOO mTOOonwvwownm So CMOWMNOWMST 
MOwer WIT rMmoOar TT IMOy SIT ITMOT CUMOO DD DMOC Fr OTNMO ~ NOW SOMO 
DAM OF MMNOOWMOK MINOW CK MMOON &=—MRKOMO OVMTNOREMeReMe— oO O-NUMNOO-— 
SN MONON MO OOO OK NM COCO OK KN CONC eK KOK OK KUNE Kw - Ck ek el oe ee ee 


22h BS Skee e2B2e2222 B22 BsB2e2zZz BV RV VBVV2eVeezeeVee2etz 3 2222222 
IH CODOTMOCOCOOOTKRAS BPODOTRA MOP -OCDWVOSMMOMOTMONr oa NORM TNO 
RN MTR MK MK ORM RK MK RN MT ROKK RN OM ODODORWNROK—KROOK CO ~ FOWNOS Cr 
DOM OF MMDOWOEKMMOAN CK MMOONW OCOMOOMOMOCMMMD-MOMO w O-NUMNODO 
SN MMM KON COMO OOK NM COCO CEN KON MK RK MRK MK KOK NINE Kw _ errr KK NY 
= 2222222222228 222222 RRVVVVeVeVeeVeVeV2e2VeezZ R 2222222 
HN MNOO OR MMAOOK RN MMOAOKRW DOOKRNMODAR—- MOCO DOO - MUAMNODAUO 
DAM OK WVUMOOWMOKOIMOAN OK VWMOON OMOOCWOMONMMMNDA=WNOMO Lal O- NT ODO 
SON MMM KONI KM OOO ON MOCO OO EN KON RK OOK NRK KOK KK NINE Kw - oe ee ee oe el oe 


SSRSSSSASTSSSIASIRISSIABIATSTSATSASTAS2 


RBRBzBaBQee2ezeBeaeelee2e2 222222222222 22 RZ RRB 2B2VVTVe Re by 
RATA MAP TAP NAMM ATONRUANaA IRASTSS I SSAAS SANTIS SSSSSSSIM 
— Onan WMO TOWER NMDA LAM - 


= s 5 S S z so4eSe2 
w vr ca ea — ll codon a Ae! 
* % = BS = 323235 

“ a 2 5S & A BRASSS 


SEQ 0108 
235098 23118 23218 23258 23278 23858 


23084 
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22728 


22928 230468 


22748 
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22618 22648 22658 


pit "P32 san-es Oer16 


CZ7LNAAO 
CZLNAA, 


oe 


MNANOOMEOr 
H—uMNr Oru 
eww K curr 


22222222 
RN OCOOson 


AS OBA BD 


ae Fe be Sa he Se bd ty the bb ty tte PvP 
~ STMATR KOM TOR OW TOUR. O&O 
ORL Bee SEO SOLON 


S2a2e2e22 ee 22 
CoonrnmwN OCOOMro 
O-O- OO ORR OM 
HMA ONM HK MMNrOM 
oe KON KOK RK tu 


2222 f2e22e22e22e & 
MNROWMNVRK VK OKRKK O 
MWNONVOOME TM TOO 
SK AUMR OOUMeRK CUM. OF 
ee ONNNUN OR Om eK ON 


OOK EK NUN OC KKK KO 


22 2&2 2eeazzze2e2e 
KOK NRK KNOT OO 
QOVMIM Ve — DOOUCUA Oe 
Ov eT ODONMON TOOT 


err eK NNER KKK KY 


RZRRRRrRa2ee2eeezee22eez 


ONMND MOCUMINO em 


BUG HOADG Ge FARSI  SVOS ON OS 


RO 


CON 
/DOC=SPMACJ/ML ,SVC33/ML ,CZLNAA.P11 


000 
0 
108 


022370 
ERRORS DETECTED: 
DOCUMENT PAGES: 


- ABS. 


